lwp_as_google_bot.pl

#!/usr/bin/perl
use strict;
use warnings;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->agent(
    "Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)");
my $res = $ua->get("http://twitter.jp");

if ( $res->is_success ) {
    print $res->as_string;
}
else {
    die $res->status_line;
}