Hi Fuism,

A quick example program that takes the path as an argument such as perl scriptname.pl c:\windows

#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
my $TargetPath = $ARGV[0];
find (\&ProcessTree,$TargetPath); 

sub ProcessTree
{
print "Directory: $File::Find::name\n" if -d;
print "File: $File::Find::name\n" unless -d;
}
[download]

Hope this helps.

Martin