Help for this page

Select Code to Download

Select or download this

use File::Copy;
use Tie::File;
...
    close( INFILE1 );
    close( OUTPUT );
}