system cp => $file1, $file2;
    die "Copy returned ", $? >> 8, "\n" if $?;