Select Code to Download

open my $fh, "+<", $fname or die $!;

...
} while $s eq "\n";

truncate $fh, $pos + 3;