use WWW::Mechanize;
use YAML ();
my $mech = WWW::Mechanize->new();

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