$A_file = "file1.cgi";
$B_file = "file2.cgi";

use File::Copy;
copy ($B_file, $A_file);

chmod 0755, $A_file;