#!/usr/bin/perl -w

use LWP::Simple;
use HTML::LinkExtor;
use Data::Dumper;

my $content = get("http://www.yandex.ru"); #Get web page
die "Get web page failed!" unless defined $content;

my $parser = HTML::LinkExtor->new(); #create LinkExtor object 
$parser->parse($content); #parse content
my @links = $parser->links; #get list of links

print Dumper (\@links);  #print list of links