#!/usr/bin/perl -w
use strict;
use HTML::SimpleLinkExtor;
use LWP::Simple;

my $html = get("http://www.poop.com/pics/index.html");
my $extor = HTML::SimpleLinkExtor->new();
$extor->parse($html);
@img_srcs = $extor->img;