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