use strict;
use warnings;

use WWW::Mechanize;

my $url = 'http://cpan.org/';
my $mech = WWW::Mechanize->new();

if ( $mech->get( $url ) ){
    for my $l ( $mech->links() ){
        print "link ", $l->url;
    }
}
__END__