#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;

my $agent2 = WWW::Mechanize->new();
$agent2->agent_alias('Windows Mozilla');

$agent2->get("http://board.perl-community.de/");
my $html2 = $agent2->response()->content;
print "$html2\n";