use WWW::Mechanize;
use Data::Dumper;
$Data::Dumper::Terse = 1;
my $mech = WWW::Mechanize->new();

$mech->get( "http://bub2.meteo.psu.edu/wxstn/wxstn.htm" );
print Dumper($mech->forms);