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 ;

     <> ;