Select Code to Download

sub setperms {
    my $fn = $File::Find::name;
...

    chmod($untained_fn,$mode) or die "Couldn't change '$untainted_fn' 
+to $mode: $!";
};