Select Code to Download

use Socket;print$_,"\n"and map$a.=ord.".",split'',inet_aton$_ and chop
+$a and print$a,"\n\n"and$a=""for@ARGV;