open O, '>', \$fred;;
{ local( $/, $\ ); print O "\n";; };;
close O;;
print unpack 'H*', $fred;;
0a