Форум АНТИЧАТ - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Народ , такой вопрос. ( сразу говорю что ногами не бейте сильно, сам знаю чо ботинок полный).

Пытаюсь написать прогу, что бы она в директории искала во всех файлах определенное слово. Но чето пока не могу понять в чем проблема. Не ищет тварюка чего то.

Код:

open (FILE2," +> 1.txt ");
opendir (DIR,"MY" );
open (LIST,">> final.txt") ;
  @dir = readdir (DIR);

  $a= undef  ;
  for ($a= 2; $a <= $#dir ; $a++   ) {
  chomp($b=$dir[$a]);
  print FILE2 "$b\n" ;
  }

 while (<FILE2>) {
   $search=$_ ;
 open (SEARCH ,"<$search") ;
    while (<SEARCH>) {
     $c=$_  ;
     if ($c =~  m/User/i) {
     print LIST "$c ----- $search \n"  ;
    }
   }
  }

 close LIST ;
 close FILE2 ;
 close SEARCH ;
 closedir DIR ;

     <> ;