use File::Copy;

$A_file = $q->cookie('cookie_1');
$B_file = "file.txt";
copy ($B_file,$A_file);