my $url = "http://........";
my $a = WWW::Mechanize->new();
$a->agent_alias( 'Windows IE 6' );
print "Stelle vor Aufruf";
print $a;
$a->get( $url );
print "Stelle nach Aufruf";
print $a;
.....