#!/usr/local/bin/perl
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $query = new CGI;
my $cookie = $query->cookie(
    -name    => 'test',
    -value   => 'banana'
);

print $query->header(-type => "text/html", -cookie => $cookie );

print "Hello";