use vars qw( $q $redirect ); use CGI; $q = new CGI; checkCookies($q); print $q->redirect(-url=>"http://www.mysite.com/index.pl$redirect"); #### sub checkCookies { my $q = shift; my $client = $q->cookie("cuser") || ''; my $password = $q->cookie("cpswd") || ''; my $project = $q->cookie("cproj") || ''; if(($client ne '') && ($password ne '') && ($project ne '')){ return "?action=display&uid=$client&pass=$password&ppa=$project"; } else{ return ''; } }