Perl version of get-ip
Merge pull request #33 from huguei/master

Perl version of sample script