Help for this page

Select Code to Download


  1. or download this
    if (-d && $uid < 500 and $File::Find::dir ne '/home'){
  2. or download this
        print "UID is $uid, skipping $File::Find::dir, $File::Find::name, 
+$_\n";

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