#!/usr/local/bin/perl

use lib "/home/bear-008/users/downeyt/public/scripts";
use CGILib;

my %cookie = get_cookie();

my $now = time_gmt();

my $str = "";
foreach (keys %cookie) {
  $str .= "Set-Cookie: $_=$cookie{$_}; expires=$now\n";
  $str .= "Set-Cookie: $_=$cookie{$_}; expires=$now; path=/\n";
  $str .= "Set-Cookie: $_=$cookie{$_}; expires=$now; domain=\n";
}

print $str;
print <<HTML;
Content-type: text/plain

All cookies have been cleared
HTML
    ;

