Cheshire Cat Computing

#!/usr/bin/perl
##########################################################
# SYNTAX ./httpGet.pl [http://www.myserver.com/page_to_get.htm]
# Version : 1.0 tom_vandevelde@yahoo.com
##########################################################
package Page;
$returnedRes;
my $TIMEOUT = 12;

sub get{
use LWP::UserAgent;

$get_page = @_[1];
$ua = LWP::UserAgent->new(timeout=>$TIMEOUT);

$request = new HTTP::Request('GET',$get_page);
$request->header(Expires=> "Mon, 26 Jul 1997 05:00:00 GMT");

my $response = $ua->request($request);

if($response->code =~ /^[23]\d\d/ ) {
        $returnedRes=$response->content;
        return 0;
} else {
        return $response->code;
}
}

sub size{
return length($returnedRes);
}


package main;
use Time::HiRes qw(usleep gettimeofday tv_interval);
my $page=Page;
$check_url= $ARGV[0];

($s, $usec) = gettimeofday;
$t0 = [gettimeofday];
$res=$page->get($check_url);
$elapsed1 = tv_interval ($t0);
if ($res==0){
     printf("%.3f\n",$elapsed1);
     printf("%.3f\n",$elapsed1);
     print "---\n";
     print "$check_url\n";
     exit (0);
}else{
    printf("UNKNOWN\n");
    printf("UNKNOWN\n");
    print "$res\n";
    print "$check_url\n";

}
exit(1);