Reading Files across directories and subdirectories

Hi Matt, A very Good Morning, Need a small Info for my problem.

I have a directory named "X" which has many sub directories
"Y","Z","W" and many files about 20 , and these sub directories also
contain some more sub directories and files in them and those sub
directories also contain more directories and files.

I want to read all the files that exists across all the  directors,
subdirectories (only files list)  and need to display .

i tried until 2 loops , but unable to complete the logic well on a
whole. can u help me if u have any idea ,

Any thing is helpful.

Thanks In advance

My Code is like below:
---------------------------------------------------------------
print "Enter The Directory Path";
$dir = <STDIN>;
chomp($dir);
opendir(DIR, $dir) || die "Unable to open the directory";
@contents=readdir(DIR);
foreach $listitem ( @contents )
{
  if ( -d $listitem )
  {
    opendir(DIR,$listitem)
    @c2=readdir(DIR);
    foreach  $l2(@c2) {
      if (-d $l2) {
       print $l2;
       print " It's a directory!\n";
      }
      else
      {
       print $l2;
         print " It's a file!\n";
      }
    }
    }
    print $listitem;
  print " It's a directory!\n";
  }
  else
  {
  print $listitem;
    print " It's a file!\n";
  }
}
close(DIR);
--------------------------------------------------------------

• Reading Files across directories and subdirectories by Koti
• Re: Reading Files across directories and subdirectories by Ganesh Babu N
• Re: Reading Files across directories and subdirectories by James Moser
• Re: Reading Files across directories and subdirectories by John W. Krahn
• Re: Reading Files across directories and subdirectories by James Moser
• Re: Reading Files across directories and subdirectories by Chas. Owens