use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->agent("google.com");
my $response = $ua->get('http://dragcave.ath.cx/viewdragon/Vjwf', Referer => 'http://www.google.com');
print $response->content;