#!/usr/bin/perl
use CGI::Cookie;
use CGI qw(:standard);
my $cooke = cookie('mail.miranet');
if ($cooke eq "") {print "Content-type: text/html\n\nError
You are not logged on!"; exit (0);}
$auth="0";
my $cook = cookie(
-name => 'mail.miranet',
-value => $auth,
-expires => '1',
-domain => 'mng.miranet.ru',
-path => '/',
);
$cook = sprintf header(-cookie=>$cook);
($cook) = split("charset=", $cook);
$cook = sprintf ("%s charset=KOI8-R\n\n", $cook);
print "$cook";
print "";