10進数を2進数に変換する Perl ワンライナー

$ perl -le 'print unpack(q/B8/,pack(q/C/,4))'
00000100