#!/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";