if (0 != ($rc = system 'cp', '-p', $file, $back)) {
    unixerr_function('CP', 'file', 'Partial file may have been copied.');
}