#!/usr/bin/perl

use CGI ':standard'; 
srand;
my(
$oreo,
$redirect
);

$oreo = cookie( -NAME => 'Afternoon',
-VALUE => "Afternoon",
-EXPIRES => '+5m', # M for month, m for minute
-DOMAIN => 'basilpayne.net'); #<-- enter your domain here

$redirect = "../../reprint-afternoon.html"; #this is where to go after setting cookies...
print redirect( -URL => $redirect,
-COOKIE =>[$oreo]);

#* EOF