print "$file\n" if  $file !~/\.pl$/

##</code><code>##

next if $file =~/^\.\.?$|\.pl$/;