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

my $mech = new WWW::Mechanize;
$mech->get('http://example.com/');

my $hostname = quotemeta( $mech->uri()->host );

my @inbound_links = $mech->find_all_links(
    url_abs_regex => qr!^https?://$hostname/!
);

print Dumper(\@inbound_links);