#!/usr/bin/perl

use CGI qw( :standard );

$cookie = cookie( -name    => 'sessionID',
                  -value   => 'xyzzy',
                  -expires => '+1h',
                  -path    => '/',
                  -domain  => '.foo.com',
                );
print redirect( -url    => 'http://login.foo.com', 
                -cookie => $cookie
              );