#! / usr / bin / perl # OK, Let's begin.use socket; use sys :: hostname; #get hostname && get Hostaddress Infomy ($ Name, $ AliaS, $ TY, $ LEN, @ myaddr) = gethostbyname (Hostname ()); Print "$ Name, $ AliaS, $ TYPE, $ LEN / N"; Foreach $ hostd (@myaddr) {print "ip:". INT_NTOA ($ hostip). "/ n";
#nd of this script.
