#!perl -w

use strict;
use LWP::Simple;

my $site    = $ARGV[0] || "http://www.perlskripts.com";
my $command = get($site);
die "An error has occured!" unless defined $command;
print $command;

##</code><code>##

    my $ua = LWP::UserAgent->new( keep_alive => 1 );
                                  timeout => 30 );

##</code><code>##

    my $ua = LWP::UserAgent->new( keep_alive => 1,
                                  timeout => 30 );

##</code><code>##

unless ($response->is_success) {
        print  "Response status is: ", $response->status_line();
        return undef;
    }

##</code><code>##

print  "Response status is: ", $response->status_line() unless ($response->is_success);