my $mode = (stat( $original_file ))[2];
   my $perms = sprintf "%04o", $mode & 07777;
   chmod( $target_file, oct($perms) ) or warn "Could not chmod '$target_file' to $perms: $!\n";