Select Code to Download

use strict;
system('cp','/path/to/file1','path/to/file2');
...
die "bad copy num:$err_num\n" 
    if $err_num;