use strict;
use warnings;
use WWW::Mechanize;

my $outfilename = "data.txt";        
open(TFILE,">$outfilename");

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

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

exit;