use strict;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get('http://amazon.com/');
$mech->success or die $mech->status();

my $link_obj = $mech->find_link
    (text_regex => qr/computer/i );

printf( "%s\n\t%s\n\n",
        $link_obj->text(),
        $link_obj->url(),
        );