Select Code to Download

0000000: 0102 0304 0506 0708 090a 0b0c 0d0e 0f10  ................

use strict;
use warnings;
...
close $fh;

print "\nDONE\n";

0000000: 0102 0304 0506 0708 090a 0b0c 0d0e 0f10  ................
0000010: 0a                                       .