$/=undef;
open(I,"your_binary.file");
$d=<I>;
$o=join("\n",map{sprintf("%x",ord)} split(//,$d))."\n";
print $o;