#!/usr/bin/perl
#

sub write_cookie
	{

	$wc_namef	= $INPT{'reg_custnamef'};
	$wc_namemi	= $INPT{'reg_custnamemi'};
	$wc_namel	= $INPT{'reg_custnamel'};

	print "Set-Cookie: b_first=$wc_namef; path=/; expires=Wed, 30-Dec-2020 00:00:00 GMT;";
	print "Set-Cookie: b_mid=$wc_namemi; path=/; expires=Wed, 30-Dec-2020 00:00:00 GMT;";
	print "Set-Cookie: b_last=$wc_namel; path=/; expires=Wed, 30-Dec-2020 00:00:00 GMT;";

	}

1;