use CGI;
my $query = new CGI;

if ($somecondition) {
   cookie();
}
if ($anothercondition) {
   menu();
} else {
   my $template = HTML::Template->new(filename => 'some.tmpl');
   $template -> param(message => "Hello World");
	
   print "Content-type: text/html\n\n";
   print $template->output();	
}

exit(0);

sub cookie {
   my $newcookie = $query->cookie( -name     => 'sessionID',
                                   -value    => "test",
                                   -expires  => '+60m');
   print $query->header(-cookie => $newcookie);
}

sub menu {
   print $query->redirect('http://www.somedomain.org/index.html');
}

##</code><code>##

print $query->header(-cookie => $newcookie);
print $query->redirect('http://www.somedomain.org/index.html');

##</code><code>##

print "Set-Cookie: $cookie\n";
print "Location: $path\n\n";