========================== Create file /var/tmp/a.pl ===========================
use strict;
use warnings;

use CGI;

my $q = CGI->new;

# Process an HTTP request
my @values  = $q->multi_param('form_field');
my $value   = $q->param('param_name');

my $fh      = $q->upload('file_field');

my $riddle  = $q->cookie('riddle_name');
my %answers = $q->cookie('answers');

# Prepare various HTTP responses
print $q->header();
print $q->header('application/json');

my $cookie1 = $q->cookie(
    -name  => 'riddle_name',
    -value => "The Sphynx's Question"
);

my $cookie2 = $q->cookie(
    -name  => 'answers',
    -value => \%answers
);

print $q->header(
    -type    => 'image/gif',
    -expires => '+3d',
    -cookie  => [ $cookie1,$cookie2 ]
);
================================================================================

$ perl /var/tmp/a.pl
Content-Type: text/html; charset=ISO-8859-1

Content-Type: application/json; charset=ISO-8859-1

Set-Cookie: riddle_name=The%20Sphynx%27s%20Question; path=/
Set-Cookie: answers=; path=/
Expires: Sat, 25 Jun 2016 10:55:24 GMT
Date: Wed, 22 Jun 2016 10:55:24 GMT
Content-Type: image/gif; charset=ISO-8859-1