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

use strict;
use CGI qw(:standard);

my $old_value = cookie('username');
my $new_value = cookie('username2');

print header;

print qq(The new cookie <B>username2</B> );
print qq(contains <B>$new_value</B><P>);
print qq(The old cookie <B>username</B> );
print qq(contains <B>$old_value</B>);