if (-d && $uid < 500 and $File::Find::dir ne '/home'){

##</code><code>##

    print "UID is $uid, skipping $File::Find::dir, $File::Find::name, $_\n";

__END__
UID is 0, skipping /home/zackse, /home/zackse/.kde, .kde

##</code><code>##

    print "UID is $uid, skipping $File::Find::name\n";
__END__
UID is 0, skipping /home/zackse/.kde