##






##

##

#!/usr/bin/perl
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

$var1="220";
$button="kact";
$ua=LWP::UserAgent->new();
my $req= POST 'http://somesite.com/results.cfm', [var1=> $var1,button=>$button];
$content=$ua->request($req)->as_string;
print $content;
print $req;