Select Code to Download

    use strict;
    use warnings;
...

    seek $fh, $offset, 0 or die "Report seek error,           
    offset:$offset - $!";

    
seek "$fh", $offset, 0 or die "Report seek error,           
    offset:$offset - $!";