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;
}


##</code><code>##

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


wel.pl
my $cookie = $cg->cookie('id');
if ( ! $cookie )
{
  print $cgi->redirect("home.pl");
}
elsif(my $cookie) {
  continue; #continue to the site if cookie exists 
}