#!/usr/bin/perl
use CGI ':standard';
use CGI::Carp "fatalsToBrowser";
use LWP::UserAgent;
use LWP::Protocol::https;

my $ua = LWP::UserAgent->new;
my $request = POST 'https://myurl.com/cgi-bin/shop.cgi',
                  [ UserID   => $uid,
                    Password  => $upass,
                  ];

if (!param()) { gofresh(); } 
elsif (param('start') =~ /mid/) { gofresh(2); }
elsif (param('start') =~ /img/) { viewimg(); }
elsif (param('start') =~ /checkout/) { checkout(); }
elsif (param('start') =~ /addcart/) { $itnum=param('itnum');
&addtocart($itnum); print redirect( "../shop/#$itnum" ); }
elsif (param('start') =~ /remove/) { $itnum=param('itnum');
&remove(param('itnum')); print redirect( "../shop/#$itnum" ); }
elsif (param('start') =~ /shopdone/) { &addtocart(param('itnum'));
paybill(); }
elsif (param('start') =~ /paybill/) { paybill(); }
else { print redirect( "../shop/" ); exit; }