Select Code to Download

if (!$ARGV[0]) {
   print "Enter launch site! (don't forgot to include the \"http://\")
+\n";
...
   exit(0) if(($target) && ($target eq $target));
   $target = $ARGV[0] unless($target);
   ...

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

...
$target = shift;

...

die $Usage unless (@ARGV == 1 and $ARGV[0] =~ m{^((?:http|ftp)://)?(\w
+*.*)}i and $2);

$target = ( $1 ) ? shift : ( substr($2,0,3) eq "ftp" ?  "ftp://$2" : "
+http://$2";

...