#! perl -w scipt

use strict;
use warnings;

use File::Find::Rule;
use File::Find::Rule;
  # find all the subdirectories of a given directory

my $directory = "U:/2004_2005/Application/Development/Useful_methods/";
my $directory_label = "U:/2004_2005/Application/Development/Useful_methods";

my @subdirs = File::Find::Rule->directory->in( $directory_label );

print @subdirs;
#exit;


foreach (@subdirs){
  print "Hi\n";
#  if ($_ !~ /$directory_label|$directory/){
    print $_;
    print "\n\n";
    my $directory_current = $_;
    #  print  cwd();
   # print \n;
    my $rule =  File::Find::Rule->new;
    
    $rule->directory( '$directory_current' );
    $rule->file;
    $rule->name( '*.*' );
    #$rule->name( qr/^[^.]{118,1000}$/); #      #  );     #  (\.[^.]{0,20})?$/ ) ;

   # $rule->name( qr/^.{20,1000}$/);  
    my @files = $rule->in( @INC );

    foreach(@files){
      print $_;

    }
#  }
}


##</code><code>##

   my @files = $rule->in( @INC );

    foreach(@files){
      print $_;

    }