use CGI;
use strict;

my $q = new CGI;
my %cookie_info = $q->cookie('cookie_name');

print $q->header;
print $cookie_info{id};