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);
##</code><code>##

500 read timeout

##</code><code>##

Connection: keep-alive, TE, close\r\n

##</code><code>##

Connection: keep-alive\r\n