#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;

my $cookie = cookie(
    -NAME    => "Matrix",
    -VALUE   => "no password",
    -EXPIRES => "+2y"
);

print header(-COOKIE => $cookie, -COOKIE => $cookie);