Help for this page

Select Code to Download

Select or download this

        # this test for directory
        $stat->{mode} & S_IFDIR ? print "Directory\n" : print "File\n"
...
    $File::Find::prune = 1
    return; 
}