DB<1> use WWW::Mechanize

  DB<2> $mech = WWW::Mechanize->new (timeout=>300)

  DB<3> x $mech->get ('http://192.168.1.77')
Error GETing http://192.168.1.77: Can't connect to 192.168.1.77:80 (connect: No route to host) at (eval 35)[/usr/share/perl/5.10/perl5db.pl:638] line 2
  DB<4> x $mech->timeout
0  300
  DB<5> x $mech->timeout(1)
0  300
  DB<6> x $mech->timeout
0  1
  DB<7> x $mech->get ('http://192.168.1.77')
Error GETing http://192.168.1.77: Can't connect to 192.168.1.77:80 (connect: timeout) at (eval 40)[/usr/share/perl/5.10/perl5db.pl:638] line 2