Help for this page

Select Code to Download

Select or download this

use File::Copy qw(move);
use Text::CSV;

...

close $in;
close $out;