my $mech = WWW::Mechanize->new( agent =>"Mozilla/5.0 (X11; U; Linux 
   i686; en-US; rv:1.7) Gecko/20040918 Firefox/0.9.3 ");