#!/usr/bin/perl
use CGI::Session;
use CGI;
print "Content-type: text/html\n\n";
my $cgi = new CGI;
my $session;
{
my $sid = $cgi->cookie("SITE_SID") || $cgi->param("sid") || undef;
$session = new CGI::Session($sid);
}
$session->delete();
print "";
print "";
print "Perl Session Destroyed";
print "";
print "";
print "From John De Castro - Session Destroyed
";
print "Back to the Perl CGI Form
";
print "Back to Page 1
";
print "Back to Page 2";
print "";
print "";