if (!$ARGV[0]) {
   print "Enter launch site! (don't forgot to include the \"http://\")\n";
   exit(0);
} 

while (1) {
   exit(0) if(($target) && ($target eq $target));
   $target = $ARGV[0] unless($target);
   ...

##</code><code>##

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

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

$target = shift;

...

##</code><code>##

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";

...