my $url = 'https://www.gutenberg.org/dirs/GUTINDEX.ALL';
	 my $file = '/home/philip/APPLICATIONS/GUTINDEX.ALL';
	 say $url;
	 my $browser = LWP::UserAgent->new();
	 my $response = $browser->get($url);
	 open my $fp,">",$file || die "Error saving book $!\n";
	 print $fp $response->content();
	 close $fp;