my $mode = (stat $oldfile)[2];
  chmod( $mode, $newfile );