#!/usr/bin/perl

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

my $url = 'http://www.perl-community.de';
my $content = get( $url );

my $link_extor = HTML::LinkExtor->new;
$link_extor->parse( $content );

my @links = $link_extor->links;

for my $link ( @links ){
    print $link->[2],"\n";
}