$query = new CGI; # $menu and $name is passed to this script # $menu is not defined when the script is called the first time if (!(defined($menu))) { if (!(defined($name))) { print $query->redirect('http://blahblah.com/cgi-bin/pdf_login.cgi'); }; my $cookie_name = $query->cookie("name"); if ($cookie_name ne $name) { my $cookie = $query->cookie (-name => 'name', -value => $name, -domain => 'blahblah.com', -expires => '+10y'); my $myurl = 'http://blahblah.com/cgi-bin/login.cgi?name='.$name; #This redirects to the same script print $query->redirect (-cookie => $cookie, -uri => $myurl); exit 0; }; } else { my $cookie_name = $query->cookie("name"); $name = $cookie_name; };