my $ua = new LWP::UserAgent;

my $req = new HTTP::Request 'POST','http://www.foo.com/program.pl';

$req->content_type('application/x-www-form-urlencoded');

$req->content('name='.$name.'&pass='.$pass);

my $res = $ua->request($req);

print $res->as_string;