#! /usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;
my $res = $ua->simple_request( HTTP::Request->new('GET', shift ));

print $res->status_line, "\n";