Help for this page
use warnings; use strict; ... print $fh $_; } close $fh;
use warnings; use strict; ... print $outfh $_; } $repl->finish;