#!/usr/bin/perl

use warnings;
use strict;

use LWP::UserAgent;
use HTTP::Request::Common;


#unless ( scalar @ARGV == 1 ) { ... }   # Apparently that would have been an alternative

if ($#ARGV != 0) {
        print STDERR "Usage: $0 \"URL to fetch\"\n";
        exit;
}

my $agent = new LWP::UserAgent;

$agent->proxy(['http','ftp'],'http://search.cpan.org/~gaas/libwww-perl-5.808/lib/LWP/Simple.pm');