# ...
my $mech = WWW::Mechanize->new();
$mech->agent('Mozilla/4.0 (compatible; MSIE 4.01; Windows 98)');   # lie through your teeth.
# ...