Select Code to Download

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 $!" ;
    }