#!/usr/bin/perl -w
##############################################################################
print "Cache-Control: no-cache, must-revalidate\n";
print "Pragma: no-cache\n";

print "Content-type: text/html\n\n";


$^W = 552 >> 3;

use strict;          # for sanity (ALWAYS!!!)
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;

HEAD('http://12box.co.uk/');
HEAD('http://japhy.perlmonk.org/book/');

real_HEAD('http://123box.co.uk/');
real_HEAD('http://japhy.perlmonk.org/book/');

sub HEAD {
    my $req = HTTP::Request->new(GET => shift);
    my $UA = new LWP::UserAgent;

    my $res = $UA->request($req, sub { die }, 1);
    
    if($res->is_success) {
        print $res->as_string();
    } else {
        print "\nError: " . $res->status_line . "\n\n";
    }
}

sub real_HEAD {
    my $req = HTTP::Request->new(HEAD => shift);
    my $UA = new LWP::UserAgent;

    my $res = $UA->request($req);
    
    if($res->is_success) {
        print $res->as_string();
    } else {
        print "Error: " . $res->status_line . "\n\n";
    }
}
__END__