#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Cookie;
my $cgi = CGI->new;
# 清除 cookie
my $cookie = CGI::Cookie->new(
-name => 'session_name',
-value => '',
-expires => '-1d',
-path => '/'
);
print $cgi->header(-type=>'text/html', -cookie=>$cookie);
print <<"HTML";
Session Destroyed
Session Destroyed
Back to the Perl CGI Form
Back to Page 1
Back to Page 2
HTML