opendir(DIR, "c:\\mlx\\") || die "can't opendir: $!";
  @list = grep { $_ ne '.' && $_ ne '..'&& $_ ne 'copy.pl' } 
  @list=readdir(DIR);
  
    foreach $name (@list)
    {
    print $name, "\n";
    opendir(DIR, $name);
    @files=readdir(DIR);
    foreach $file(@files){
    print "filename is ", $file, "\n";
    }

  
    #opendir(DIR, "$_")||die "Not able to open directory $!";
    @files=readdir(DIR);
    foreach(@files)
    {
    print  $_, "\n";
    }
}