use CGI ':standard';
my $query = CGI->new();
my $cookie = $query->cookie(-name=>'username',
                            -values=>"param('name')",
                             -expires=>'+1h',
                            -domain=>'.storm.prohosting');
print $query->header(-cookie=>$cookie);