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