#!/usr/bin/perl
$|++;
use strict;
use diagnostics;

my $target = $ARGV[0];
my $agent  = $ARGV[1];

use LWP;
print "This is libwww-perl-$LWP::VERSION\n";

my $start_time = time();

my $ua = LWP::UserAgent->new();
$ua->agent($agent);
$ua->timeout(10);

my $req = HTTP::Request->new(GET => $target);
my $res = $ua->request($req);

if ($res->is_success) {
    print $res->content() . "\n";
}else{
    print $res->status_line() . "\n";
}

my $end_time = time();

print 'Runtime: ' . ($end_time - $start_time) . "\n";