use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper;

my $mech = WWW::Mechanize->new( autocheck => 1 );
my $url = 'http://www.perlmonks.com/?node_id=608600';

$mech->get( $url );
my @links = $mech->links();

print Dumper @links;