Select Code to Download

open file
binmode file
...
read a predefined byte length
use that info (file location) to goto to the actual data.
then extract (file size)

open(my $infile, "<", "./file") or die "Cannot open file: $!";

...
syswrite $newfile, $new;