click me #### #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; user LWP::Debug qw (+); #Simplified a little bit as real site requires cookies and url redirection etc... my $ua = LWP::UserAgent->new; my site = "https://www.secure.com/login"; my $req = HTTP::Request->new(POST => $site); my $req->content_type('application/x-www-form-urlencoded'); my $req->content('user=a_user&pass=a_pass'); my $req = $ua->request($req); if ($res->is_success) { print $res->content; } else { print $res->status_line, "\n"; } #Now how do I dump the var=value pairs from this returned page???