use LWP::UserAgent;
my $ua = LWP::UserAgent->new(timeout=>45); 
 my $req = POST 'http://myhost.com/cgi-bin/script.pl', 
  [id => '4301330018817403', 
  total_amount => "$grand_total", 
  location => 'hawaii', 
 ]; 
 
my $content = $ua->request($req)->as_string;