#!/usr/bin/perl

use warnings;
use strict;

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

print header, start_html();

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

print $ua->content;