my $Usage = "$0 http://target.url\n";

die $Usage unless ( @ARGV == 1 and $ARGV[0] =~ m{^http://} );

$target = shift;

...