#!/usr/bin/perl -wT
# Example 5-3

use strict;
use CGI qw(:standard);

my $cookie1 = cookie( -name => 'username2',
                      -value => 'Barney Rubble',
                      -expires => '+1y',
                    );

print header( -cookie => $cookie1 );

print qq(Another cookie has been set in your browser...<P>);
print qq(<A HREF="example_5-4.cgi">);
print qq(Click to view the cookie</A>);