my $tmp = 'c:/tmp.tmp';
open TMP, "+>$tmp" or die $!;
print TMP "\n";
seek TMP, 0, 0;
binmode TMP;
for(split//,<TMP>){printf "0x%x\n",ord $_}
close TMP;
unlink $tmp;
__END__

#prints (on Win32)
0xd
0xa