Select Code to Download

use strict;
use CGI qw/:standard/;
...
my $mycookie = new CGI::Cookie(-name=>'user', -value=>'sample_value', 
+-expire=>'+1h', -path=>'/', -domain=>$ENV{HTTP_HOST});
print "Set-Cookie: $mycookie\n";
print "Location: otherfile.cgi\n\n";

print redirect(-cookie=>$mycookie, -location=>'otherfile.cgi');
print redirect(-cookie=>$mycookie, -uri=>'otherfile.cgi');
print redirect(-cookie=>$mycookie, -url=>'otherfile.cgi');
print header(-cookie=>$mycookie, -url=>'otherfile.cgi');
print header(-url=>'otherfile.cgi', -cookie=>$mycookie);