Select Code to Download

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

Could not chmod '/data/dmu/share/Product/PMprofile' to 0644: A file or
+ directory in the path name does not exist.

> ll /data/dmu/share/Product/PMprofile
-rw-rw-rw-   1 dfilmer   wheel         1015 Jun 19 2012  /data/dmu/sha
+re/Product/PMprofile