#!/usr/local/bin/perl
print "Content-type: text/html\n\n";

use CGI;
$q = new CGI;

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

open FILE, "$B_file";
$Data = <FILE>;
close (FILE);

open(OUT,">$A_file") or die $!;
print OUT "$Data\n" or die $!; 
close(OUT) or die $!;