#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;
use HTTP::Request::Common qw/ GET /;

my $url      = shift;

my $browser  = LWP::UserAgent->new;
my $response = $browser->request( GET $url );

print $response->code;