oops, need to print the results of redirect:

print $q->redirect(
          -uri => $url
        , -cookie => $cookie
    );
[download]