#!/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";
$