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

use LWP::Simple qw();
use LWP::UserAgent;
use HTML::Treebuilder;
use HTTP::Request;

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

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

    my @image_array=();
    my %image = ();
    foreach my $image ($tree->look_down("_tag", "img")){
        push (@image_array, \%image);
    }
    
    use Data::Dumper;
    print Dumper(@image_array);

##</code><code>##


$VAR1 = {};
$VAR2 = $VAR1;
$VAR3 = $VAR1;
$VAR4 = $VAR1;


##</code><code>##


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

use LWP::Simple qw();
use LWP::UserAgent;
use HTML::Treebuilder;
use HTTP::Request;

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

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

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

##</code><code>##


HTML::Element=HASH(0x221d7b8)HTML::Element=HASH(0x2240b30)HTML::Element=HASH(0x2240be4)HTML::Element=HASH(0x22421e8)