use LWP::Simple;
my $ip = get "http://tnx.nl/ip";