opendir(DIR, $dir) or die $!;
...
foreach (@files) 
       {
    open(IN, $dir)or die $!;