...
use WWW::Mechanize;
...
my $a = WWW::Mechanize->new();
$a->agent_alias( 'Windows IE 6' );
...