# this test for directory
        $stat->{mode} & S_IFDIR ? print "Directory\n" : print "File\n"
+;
        # is the same as this one
        $stat->{attribs} & FILE_ATTRIBUTE_DIRECTORY ? print "Directory
+\n" : print "File\n";
my $isjunction= <.. some code to see if its a junction ..> ; 
if ($isjunction){ 
    $File::Find::prune = 1
    return; 
}