#!/usr/bin/perl -w
use strict;

use WWW::Mechanize;

my $domain = 'http://www.nobeliefs.com/nazis.htm';
my $m = WWW::Mechanize->new;
$m->get( $domain);

my @list = $m->dump_images();
print "@list \n";
$ 


##</code><code>##

 

#!/usr/bin/perl -w
use strict;


use LWP::Simple;  

open FILE, "text1.txt" or die $!;

my $data;
my $url;
my $text;
my %params;

while (<FILE>)
{
$text = $_;

$url = 'http://www.nobeliefs.com/nazis/' . $text;
$data = LWP::Simple::get $params{URL};
$text =~ s#images/##;
print "$url\n";
print "$text\n";
open (FH, ">$text");
binmode (FH);
print FH $data;
close (FH);

}

$