Help for this page

Select Code to Download

Select or download this

    <h1>My-IP-Service</h1>
<h1 class="myip"><!--- >
...
233.167.179.189
< -->&#55;<!-- >
228.193.179.191< --></a></h1>

Select or download this

#!/usr/bin/perl -w
use strict;
...
    text_h  => [sub { $ip.=$_[0] if $wanted }, 'dtext'],
)->parse(get('http://www.heise.de/netze/tools/ip'));
print "$ip\n";