#!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;