Help for this page

Select Code to Download

Select or download this

foreach my $file (@files)
{
...
    close FILE or die $!;
    close IN   or die $!;
}