my $tree = HTML::TreeBuilder->new_from_content($html_file);
my @links = $tree->extract_links('a');

##</code><code>##

use 5.010;
use warnings;
use strict;
use HTML::TreeBuilder;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $fetch_result = $ua->get("http://www.perlmonks.org");
my $tree = HTML::TreeBuilder->new_from_content($fetch_result->content);

my $banner_row = $tree->look_down( '_tag' => 'tr', class => 'bannerrow' );
my $img_objects = $banner_row->extract_links('img');

# Skip over the advert image.
my @monksImage = grep{$_->[0] =~ m/perlmonks/} @$img_objects;

# Prove the script worked.
say "Today's image points to: ".$monksImage[0][0];