##

#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
my $cgi = new CGI;
my $cookie = $cgi->cookie(-name   =>'somename',
                          -value  =>'somevalue',
                          -path   =>'/',
                          -expires=>'+10y', #long cookie
                          -domain =>'yourdomain.com',
                          );
print $cgi->redirect( -cookie=>$cookie,
                      -uri   =>'http://yourdomain.com/someimage.png');