use LWP::UserAgent;
use HTML::LinkExtor;
use URI::URL;

$url = "http://www.sn.no/";  # for instance
$ua = new LWP::UserAgent;

# Set up a callback that collect image links
my @imgs = ();
sub callback {
  my($tag, %attr) = @_;
  return if $tag ne 'img';  # we only look closer at <img ...>
  push(@imgs, values %attr);
}

# Make the parser.  Unfortunately, we don't know the base yet
# (it might be diffent from $url)
$p = HTML::LinkExtor->new(\&callback);

# Request document and parse it as it arrives
$res = $ua->request(HTTP::Request->new(GET => $url),
       sub {$p->parse($_[0])});

# Expand all image URLs to absolute ones
my $base = $res->base;
@imgs = map { $_ = url($_, $base)->abs; } @imgs;

# Print them out
print join("\n", @imgs), "\n";
[download]

what if i don't want to use modules, as in pure perl? can this be done?

Sure it can be done. But why bother when the modules are there to make your life easier?

LWP::Simple, HTML::Parser (version 2) and HTML::LinkExtor are all pure-Perl modules, so if you want to know how to so it, just look at the source for these modules.

--
<http://www.dave.org.uk>

European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>

Yes, you would grab the original page (using one of the LWP modules) and then parse the file using HTML::LinkExtor to find the image links and send off a separate request for each link found.

hi davorg, you mean i will be able to download even the images and save it on my server? thanks.

Yep. It would be something like this (untested code):

use strict;
use LWP::Simple;
use HTML::LinkExtor;

my $url = 'http://www.example.com/index.html';
my $file = 'index.html';

getstore($url, $file);

my $p = HTML::LinkExtor->new;
$p->parse_file($file);

my $i = '000';
while ($p->links) {
  next unless $_->[0] = 'img';

  shift @$_;
  my %attrs = @$_;

  getstore($attrs{src}, "img$i";
  ++$i;
}
[download]

Actually, thinking about it, that's not quite right as the image URLs that you'll get back in $attrs{src} will be relative to the main page so you might need to munge them a bit to get the absolute URL. Also by parsing the URL you could probably get a better image filename than the 'img00X' names that I'm using.

--
<http://www.dave.org.uk>

European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>

-- Randal L. Schwartz, Perl hacker

what if i don't want to use modules, as in pure perl? can this be done?
As far as I know, LWP is written in Perl, so your script would be "pure Perl" ::grin::.