#!/usr/bin/perl -w ($extra,$iduser)=split('=',$ENV{'HTTP_COOKIE'}); if(length($iduser)==0) { print "Location: http://www.myproject.com/service/signin\n\n" } else { dbmopen(%cooks,"/etc/httpddata/cookies.dat",0600); delete $cooks{$iduser}; $iduser=''; print "Set-Cookie: iduser=$iduser;\n"; print "Location: http://www.myproject.com/service/signin\n\n" }