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

use strict;

my ($key, $value) = split(/=/, $ENV{HTTP_COOKIE});

print qq(Content-type: text/html\n\n);
print qq(The cookie <B>$key</B> contained <B>$value</B>);