#!/usr/bin/perl -w

use LWP::Simple;
use strict;

my $ippage = get 'http://www.eb.com/cgi-bin/IP';

if ($ippage =~ /(\d+)(\.\d+)(\.\d+)(\.\d+)/) {
    print "$1$2$3$4\n"
    }