#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my $url = ("http://whatismyip.com/");
my $var = get($url);

$var =~ m/(\d+).(\d+).(\d+).(\d+)/;
print "Deine IP-Adresse ist: $1.$2.$3.$4\n";

use strict;
use Socket;

print inet_ntoa(gethostbyname('whatismyip.com') ."\n";

#!/usr/bin/perl -w
use strict;
use Socket;

print inet_ntoa(gethostbyname('www.whatismyip.com') ." ");

#!/usr/bin/perl -w
use strict;
use Socket;

my $hostname = gethostbyname('whatismyip.com');
print inet_ntoa($hostname) . "\n";

use strict;
use warnings;

my $ip;

open CMD, '-|' or exec qw(/sbin/ifconfig ppp0) or die "exec failed: $!";
foreach(<CMD>)
{
        $ip = $1 if m/^\s*inet addr:([0-9.]+)/;
}
close CMD;

print $ip ? "Deine IP: $ip\n" : "IP nich gefunden :-(\n";

eth0     Protokoll:Ethernet  Hardware Adresse 00:0B:6A:33:85:2C
          inet Adresse:192.168.0.117  Bcast:192.168.0.255  Maske:255.255.255.0
          inet6 Adresse: fe80::20b:6aff:fe33:852c/64 Gültigkeitsbereich:Verbindung
          UP BROADCAST RUNNING MULTICAST  MTU:1500  Metric:1
          RX packets:20285 errors:0 dropped:0 overruns:0 frame:0
          TX packets:13018 errors:0 dropped:0 overruns:0 carrier:0
          Kollisionen:0 Sendewarteschlangenlänge:1000
          RX bytes:27806468 (26.5 MiB)  TX bytes:1109139 (1.0 MiB)
          Interrupt:19 Basisadresse:0xd400

perl -MLWP::Simple -le 'print get("http://whatismyip.com/")=~/IP\s+is (\S+)<\//i'