#!/usr/local/bin/perl

use CGI qw/:standard/;
use CGI::Cookie;

$passwd="toronto5";

$cookie1 = new CGI::Cookie(-name=>'DB',
	-value=>{ username => simony,
		  password => toronto5,
	},
	-expires =>  '+8H');
	
#print header(-cookie=>[$cookie1]);

print "Set-Cookie: $cookie1\n";
print "Content-Type: text/html\n\n";
print $cookie1;