##

my $cgi = CGI->new();
my $sid = $cgi->cookie('login');
if ( ! $sid ){ 
  print $cgi->redirect(-uri=>"home.pl", -cookie=>$cookie);
} else { 
  print $cgi->header(-cookie=>$cookie);
 }