Perl version of sample script

Hi, I've made a simple perl version of get-ip.go.