Select Code to Download

truncate('test.dat', 1024);

use strict;
use warnings;
...
    print $handle $_;
}
close($handle);

my $crop = 1024;
my $margin = 64;
...
read($handle, $_, $crop + $margin);