or download this
perl -MSocket -le 'print scalar gethostbyaddr(inet_aton("127.0.0.1"),A
+F_INET)'
C:\strawberry\Scripts>perl -MSocket -le 'print scalar gethostbyaddr(in
+et_aton("127.0.0.1"),AF_INET)'
Can't find string terminator "'" anywhere before EOF at -e line 1.