sub set_cookie {
    my ( $q, $username) = @_;
    my $cookie = $q->cookie ( name   =>    "login",
                              value  =>    $username,
                              path   =>    "/cgi-bin");
                                  
    print $q->redirect( -url => "http://www.foo.com/cgi-bin/bar/index.cgi?page=logedin",
                        -cookie => $cookie );
}