use URI::URL;
use WWW::Mechanize;


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

my $url1 = URI::URL->new($url);

my $webcrawler = WWW::Mechanize->new();
my $content = $webcrawler->get($url);
my @links = map { $_->[0] } $webcrawler->links;

my $base = $url1->base();
my @absolute_links = map { $_= url($_, $base)->abs; } @links;

print "@linkarray \n";