#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
my $agent = WWW::Mechanize->new();

$agent->get('http://cnn.com/');
foreach (@{$agent->links()}) {
  print "LINK:".URI->new($_->[0])->abs($agent->base())."\n";
}