open(COPY, "| cp") || die("Could not open COPY: $!");; print COPY "file1 file2" || die("Could not print to COPY: $!"); close COPY || die("Could not close COPY: $!");