use strict;
use warnings;

use CGI qw(:standard);

my $cookie = cookie( -name => 'test', -value => 'tset' );
print redirect( -uri => '/', -cookie => $cookie );