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

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