#!/usr/bin/perl

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

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

sub connect {
    $content = get($url);
    return $content;
}


&connect();

my $p = HTML::LinkExtor->new();
$p->parse_file($content);

if($p->links) { print $p->links; }