Help for this page

Select Code to Download

Select or download this

while (<INFILE>)
{
     my ($infile, $dir, $type);
...
     }
     print "$infile $dir $type\n";
}