#!/usr/bin/perl

use CGI qw(:standard);
if (!(cookie('basket'))) {
print redirect('http://127.0.0.1/cgi-bin/shopping/main.pl');
}
else {
  $basket=cookie('basket');
  @quantity=split(/,/, $basket);
  $current=@quantity[0];
  print header(), start_html('Caramel Squirrels');
  print h1('Caramel Squirrels');
  print p('Our Caramel Squirrels have been a favorite for years. '.
'Birdwatchers who have lost birdseed to the ever-charming rodents '. 'can exact their revenge on these replicas in fine caramel. '. 'Guaranteed caramel pleasure!');
  print start_form('POST','main.pl');
  print p('How many pounds would you like? ',textfield(-name=>"quant",-value=>$current));
  print hidden('item',1);
  print submit('Enter your order');
  print end_form();
  print end_html;
}