#!/usr/bin/perl -w
use strict;
use LWP::Simple;  
open FILE, "text1.txt" or die $!;
my $url;
my $text;
while (<FILE>)
{
$text = $_;
$text =~ s/\s+//;
$url = 'http://www.nobeliefs.com/' . $text;
print qq[ '$url' ];
$text =~ s#images/##;
print "$text\n";
getstore($url, $text) or die "Can't download: $@\n";
}

##</code><code>##

#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
open FILE, "text2.txt" or die $!;
my $domain = 'http://www.nobeliefs.com/nazis.htm';
my $m = WWW::Mechanize->new;
$m->get( $domain);
my @list = $m->images();
print "@list \n";
#$m->text();
#$m->content( format => 'text2.txt' );
#print FILE $m;
close FILE;