Help for this page
use WWW::Mechanize; ... $mech->content() =~ /sm.th. from Track.aspx/ and print "logged in\n" __END__
mech-dump "http://some.web-site.com/login.html"