#perl.exe

use strict;
$|++;
use WWW::Mechanize;
my %seen;
my $scraper = WWW::Mechanize->new();
my $mech = WWW::Mechanize->new();

my $home = <STDIN>;

&main($home);

sub main {

	my $line = shift;
	$scraper->get($line);
	
	my @LinkArray = $scraper->find_all_links();
        if (defined @LinkArray){
	my @urls = map { $_->[0]} @LinkArray;
	shift @urls if $seen{$line}++;
	foreach my $url(@urls){
		print "\n", $url;
		++$index_level;
		$scraper->get($url);
		next if $seen{$url}++;
		&followlink($url);
	}
   	my $dest = shift @PublicLinks;
	&main($dest);
    	return;
      }else{
    return;
  }
}