Select Code to Download

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

use 5.010;
use warnings;
...

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