Help for this page
1) File::Find::find ( { wanted => $wanted, prune => $File::Find::prune + }, $fs ) ; ... 3) File::Find::find ( { wanted => $wanted, prune => $File::Find::prune = shift}, $fs
#!/usr/bin/perl ... END { close ($logg) or warn "Log '$logg' failed to close $!" ; }