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