use CGI;
my $q = new CGI;

sub set_cookie {
    my ( $username ) = @_;
    my $cookie = $q->cookie( -name => 'validated', 
                             -value => $username, 
                             -expires => '+1h', 
                           ); 
    print $q->header( -cookie=>$cookie );
}