print $q->header( -cookie => [ $set_session, $set_username ] ,  $q->redirect("http://localhost/"));

##</code><code>##

#!/usr/bin/perl 

use strict;
use warnings;
use CGI;

my $user_name = 'user';
my $secret = 'password';

my $q = CGI->new;

my $set_username = $q->cookie(
    -name => "user_name",
    -value => $user_name,
    -expires => "+1d",
);

my $set_session = $q->cookie(
    -name => "session",
    -value => $secret,
    -expires => "+1d",
);
print $q->header( -cookie => [ $set_session, $set_username ]);
print $q->redirect('http://localhost/');