Select Code to Download

use vars qw( $q $redirect );
use CGI;
...

checkCookies($q);
print $q->redirect(-url=>"http://www.mysite.com/index.pl$redirect");

sub checkCookies {

...
}
else{ return ''; }
}