#!/usr/bin/perl
use CGI::Session;
my $session = new CGI::Session("driver:DB_File;serializer:storable",
undef, undef, { name => 'DICABERTO'} );
$session->clear(["username"]);
$session->flush();
print $session->header(-charset => 'UTF-8');
print <<"EOHTML";
A terminar a sessão!
A terminar a sessão...
Siga esta ligação se o seu navegador não redireccionar automaticamente: Dicionário-Aberto!