Select Code to Download

#!/usr/bin/perl
use strict;
...

#### TRY02: One-liner in dotted notation form...
print "TWO:\n",join('.',unpack('C4', (gethostbyname($host))[4])),"\n";

perl -MSocket -e 'print inet_ntoa(scalar(gethostbyname("hostname")))'