Select Code to Download

use File::Copy;

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

open FILE, "$B_file" or die "Unable to open \'$B_file\': $!";
open(OUT,">$A_file") or die "Unable to open \'$A_file\':
while (<FILE>) {
  print OUT "$_";
}