##
#!/usr/bin/perl -w
use strict;
use LWP::Simple;
use HTML::Parser;
my $ip='';
my $wanted=0;
HTML::Parser->new(
api_version => 3,
start_h => [sub { $wanted=1 if ($_[0] eq 'h1') && ($_[1]->{'class'} eq 'myip') }, 'tagname,attr'],
end_h => [sub { $wanted=0 if $_[0] eq 'h1' }, 'tagname'],
text_h => [sub { $ip.=$_[0] if $wanted }, 'dtext'],
)->parse(get('http://www.heise.de/netze/tools/ip'));
print "$ip\n";