home.pl
my $cg = new CGI;
my $cookie = $cg->cookie(-name => 'login',
                          -value => $username,
                          -expires => '+2m',
                          -path => '/');
                           print $cg->header();
                           print "Location: wel.pl?";
                           print $cg->header(-cookie => $cookie);


wel.pl
my $cg = new CGI;
my $cookie = cookie('login');
if ( ! $cookie ) 
{
  print $cg->redirect("home.pl");
}
elsif($cookie) {
  continue;
}