#!/usr/bin/perl

use warnings;
use strict;

use CGI qw/:standard/;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->agent("googlebot.com ");

# Create a request
my $req = HTTP::Request->new(GET => 'http://dragcave.ath.cx/viewdragon/Vjwf');
$req->header('Referer', 'http://www.google.com');
$reg->agent('testing');
print header, start_html();
print "done";