Help for this page

Select Code to Download

Select or download this

use strict;
use Fcntl qw(:seek);
...
print "$line\n";

close $in;