use Data::Dumper;\n
use LWP::UserAgent;
use Apache2::Connection ();
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla 12.50 ");
$ua->timeout("3");
$a=$ua->post("http://192.168.0.164/dologin.htm","P2=>pass1");
print Dumper($a);