Help for this page
#!/usr/bin/perl ... # And print! printf "%x.%x.%x.%x\n",$a,$b,$c,$d;
printf "%x.%x.%x.%x\n", unpack("C4",pack("N",hex $hexstr));