#!/usr/bin/perl
use LWP::Simple;


%seen = ();

$initialURL="http://google.com";
push (@q, $initialURL);
foreach $url (@q) {
	
	print "$url\n";
	$page = get $url;
	@lines = split(/</,$page);
	foreach $line (@lines) {
		if ($line =~ /(http:\/\/[^\s">]+)/) {
			print "\t" . $1 . "\n";
			if ($seen{$1} != 1) {
				$seen{$1} = 1;
				push(@q, $1);
			}
		}
	}

}