...
my @outbound_links = grep { $_->url !~ qr!^https?://$hostname/! } $mech->find_all_links;
...

##</code><code>##

my @outbound_links = $mech->find_all_links(
    url_abs_regex => qr<^(?!https?://\Q$hostname\E/)>,
);