open(SESSIONS, "sessions");

$id = new Math::BigInt '123 456 789 123 456 789';
$c = new CGI::Cookie(-name    =>  'NetAppliance1.0',
                     -value   =>  $id,
                     -path    =>  '/cgi-bin/'
                     -secure  =>  0
                    );
# finished. let's jam it out there
print "Set-Cookie: $c\n";
print "Content-Type: text/html\n\n";     
print SESSIONS "ID:$id";