Select Code to Download

sub is_safe_file {
   my $path = shift;
...
   return 0 if $mode & 022;
   return 1;
} ## end sub is_safe_file