#!/usr/bin/perl -w

use strict;
use LWP::Simple;

my($target, $response);

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);
   $response = get($target) || die "Cannot get page!\n";

   my @results = split(/ /, $response);
   foreach (@results) {
      if ($_ =~ m/(http\:\/\/).+/) {
         print "URL found: ".$_,"\n";
      }
   }
}