use strict;  use warnings;

use URI::URL;
use WWW::Mechanize;
use Data::Dumper;

my $url = 'http://www.dcs.shef.ac.uk/';

my $webcrawler = WWW::Mechanize->new();
my $content = $webcrawler->get($url) || die( "!!etc" );

my @absolute_links = map { 
                           url( $_->[0], $url )->abs->as_string 
                         } @{ $webcrawler->links };

print Dumper \@absolute_links;