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