$File::Find::prune = 1 if /dir1/;

    


use File::Find;

find sub {

    $File::Find::prune = 1 if /dir1/;

    print "Here's a text file: $File::Find::name\n" if -T

    },
    '.';

1.	Copy files
2.	Copying a file using the File::Copy
3.	Create a directory tree
4.	Determine the contents of a directory tree?
5.	File finder and callback
6.	File size with FIELDS
7.	Find file
8.	Find out if there's a copy of the dir program on this computer
9.	File find closure
10.	Using a Callback
11.	Extracting file names from paths

$File::Find::prune = 1 if /dir1/; : File « File « Perl