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