Nice catch, you can also append to the program using open(FIFO, ">>$program");

Check out:open

--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--

perl -e '$a="3567"; $b=hex($a); printf("%2X\n",$a);'