#!/usr/bin/perl # HEX2IPaddrprint unpack("C",pack("H*",substr($ARGV[0],0,2))),"."; print unpack("C",pack("H*",substr($ARGV[0],2,2))),"."; print unpack("C",pack("H*",substr($ARGV[0],4,2))),"."; print unpack("C",pack("H*",substr($ARGV[0],6,2…