$ perl -le 'printf( "%04x\n", 12)'
000c