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";

##</code><code>##

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

##</code><code>##

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