echo 12.34.56.78 | perl -MSocket -ne "printf('%08X',unpack('N',inet_aton(\$_)))"