add copy perl code