Select Code to Download

    $. = 0;
    seek $fh, 0, 0
        or  die "Can't rewind handle to $file: $!\n";

    {  my $eof = <$fh>;  $. = 0;  }
    seek...