#!/usr/bin/perl
use warnings;
use strict;

use LWP::Simple;
use LWP::UserAgent;
use HTML::Treebuilder;
use HTTP::Request;
use Data::Dumper;

my $raw_html = LWP::Simple::get("http://www.perlmonks.org")
   || die("$!\n");
      

my $tree = HTML::TreeBuilder->new;
$tree->parse($raw_html);
$tree->eof;

my @image_array;

foreach my $image ($tree->look_down("_tag", "img")){
  push @image_array, $image;
}

print Dumper \@image_array;