Select Code to Download

use warnings;
use strict;
...

# check to see if it took
print $rw->recsep($file, 'hex') . "\n";

\0d\0a  # before (\r\n)
\0a     # after  (\n)

:set ff=unix