#!/usr/bin/env perl 
use strict;
use warnings;
use WWW::Mechanize;

my $ua = WWW::Mechanize->new();

$ua->get ('https://hungergj.home.xs4all.nl/test.htm');
my @links = $ua->links();
print $ua->get ($links[0]->url)->decoded_content;