Select Code to Download

use strict;
use warnings;
...
seek $fh, 0, $offset or die "Cannot seek to $offset in $file: $!\n";
print $fh "blah blah blah" or die "Cannot print to $file: $!\n";
close $fh;

$/ = \32;
my $pos = tell($fh);
...
    }
    $pos = tell($fh) or die "Can't tell: $!\n;
}