#!/opt/local/bin/perl

use CGI;

my $query = new CGI;

my $id = $query->cookie('login_id');

print $query->header;

print "Login ID: $id\n";

exit(0);