use strict;
use warnings;
use HTML::SimpleLinkExtor;

my $extor = HTML::SimpleLinkExtor->new();
my $url   = 'http://www.perlmonks.org';

$extor->parse_url($url);

foreach my $src ( $extor->img ) {
    print "$src\n";
} 

##</code><code>##

http://promote.pair.com/i/pair-banner-current.gif
http://perlmonks.org/images/monkpics/pater_hat_sm.gif