$ perl -le " print pack q[H*] => shift " 66696c656e616d65
filename