This is a perl script that helps you retrive your public IP address. This is useful if your terminal is located in a private network with NAT to access internet.

gistfile1.txt

#!/usr/bin/perl

use LWP::Simple;

my @lines=split("\n",get("http://myip.dk"));
foreach my $line (@lines)
{
  if($line =~ />([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)</)
	{
		print "found : $1\nin line $line\n";
	}
}