#!/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;
    }