my $mech = WWW::Mechanize::Firefox->new() ;
print "debug: going to mech->get()\n" ;
$mech->get('http://mail.yahoo.com') ;