Select Code to Download

use strict;
use warnings;
...
    or die "Cannot open output device: $!";
print $DEVICE_OUT $stats;
close $DEVICE_OUT;

C:\Users\Bill\forums\monks>xxd stat.dat
00000000: f531                                     .1
...
00000000: d711                                     ..

C:\Users\Bill\forums\monks>