use CGI::Simple;
my $q = new CGI::Simple;
my $qh = $q->Vars;
...
print $q->header(-charset=>'utf8', -expires=>'+10m');
warn $q->header(-charset=>'utf8', -expires=>'+10m');