use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 0 );

$mech->get("https://perlmonks.org/?node=Recently+Active+Threads");

for my $link ( $mech->links )
{
    printf "* %s\n  -> %s\n", $link->text, $link->url_abs;
}