#! perl -sw
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new('GET', 'http://www.internet-help.net/cgi-bin/ip-address.pl');
my $response = $ua->request($request);
print $response->{_content} =~ m/(\d+\.\d+\.\d+\.\d+)/;