#!/opt/local/bin/perl

use CGI;

my $form = new CGI;

my $cookie = $form->cookie( -name => "login_id", -value => "123456" );

print $form->header( -cookie => $cookie );

print <<END_HTML;
<a href="viewcookie.cgi">See Cookie</a>
END_HTML