$ perl -e 'print pack("i",1)' | hd
00000000  01 00 00 00                                       |....|
00000004