#! /usr/bin/perl
use strict;
use warnings;
use Encode;
use HTML::Parser;
use LWP::UserAgent;


my @links;

my $url = "http://google.de/";

my $ua = LWP::UserAgent->new();
my $response = $ua->get($url);
my $inhalt    = $response->decoded_content;

my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"self,tagname,attr");
$p->parse($inhalt);

foreach my $link (@links){
  my $linkziel = $link->[0];

  if (defined($linkziel)){
    print $linkziel."\n";
    if($linkziel =~ m/http/i ){
      print "Linktext: ",$link->[1],"\tURL: ",$link->[0],"\n";
    }
  }
}


sub start_handler{
  my ($self, $tag, $attr) = @_;
  return if($tag ne 'a');

  my ($link) = $attr->{href};
  my $text;

  $self->handler(text => sub{$text = shift;},"dtext");
  $self->handler(
      end => sub {
          my ($tag) = @_;
          if ($tag eq 'a'){
              push(@links,[$link,$text])
          }
      },
      "tagname"
  );

}

http://www.google.de/imghp?hl=de&tab=wi
Linktext: Bilder	URL: http://www.google.de/imghp?hl=de&tab=wi
http://video.google.de/?hl=de&tab=wv
Linktext: Videos	URL: http://video.google.de/?hl=de&tab=wv
http://maps.google.de/maps?hl=de&tab=wl
Linktext: Maps	URL: http://maps.google.de/maps?hl=de&tab=wl
http://news.google.de/nwshp?hl=de&tab=wn
Linktext: News	URL: http://news.google.de/nwshp?hl=de&tab=wn
http://www.google.de/shopping?hl=de&tab=wf
Linktext: Shopping	URL: http://www.google.de/shopping?hl=de&tab=wf
https://mail.google.com/mail/?tab=wm
Linktext: Mail	URL: https://mail.google.com/mail/?tab=wm
http://www.google.de/intl/de/options/
Linktext:  �	URL: http://www.google.de/intl/de/options/
/url?sa=p&pref=ig&pval=3&q=http://www.google.de/ig%3Fhl%3Dde%26source%3Diglk&usg=AFQjCNFjfPavRPBJrOKJS3MB2uzhpfN6zw
Linktext: iGoogle	URL: /url?sa=p&pref=ig&pval=3&q=http://www.google.de/ig%3Fhl%3Dde%26source%3Diglk&usg=AFQjCNFjfPavRPBJrOKJS3MB2uzhpfN6zw
http://www.google.de/history/optout?hl=de
Linktext: Webprotokoll	URL: http://www.google.de/history/optout?hl=de
/preferences?hl=de
https://accounts.google.com/ServiceLogin?hl=de&continue=http://www.google.de/
Linktext: Anmelden	URL: https://accounts.google.com/ServiceLogin?hl=de&continue=http://www.google.de/
/advanced_search?hl=de
/language_tools?hl=de
/intl/de/ads/
/services/
/intl/de/about.html
http://www.google.com/ncr
Linktext: Google.com in English	URL: http://www.google.com/ncr
/intl/de/policies/