Select Code to Download

open my $fh, '<+:raw', $file; # raw so file is read/written in bytes, 
+not characters
my $where = tell($fh);
...
    $where = tell($fh);
}
close $fh;