#!/usr/bin/perl


my $yySetCookies1 = cookie(-name    =>   "test",
			   -value   =>   "test",
			   -path    =>   "/",
			   -expires =>   "");

print header(-status=>"200 OK", -cookie=> $yySetCookies1);


use CGI qw(:standard);          # Must be used to get the param() function
#use CGI;
use CGI::Carp (fatalsToBrowser);
#use CGI::Cookie;
use strict;
use OLE;
use Net::SMTP; # Yes, this will work on windows.
use MIME::Base64;