print $q->header ( -status => 401 );

##</code><code>##

use strict;
use CGI;

my $q         = new CGI;
my $lock_dir  = "/tmp/lock";
my $other_url = 

my ($sess) = $q->param{sess} =~ /^(\d+)/;

if (-f "$lock_dir/$sess.logout")
{
      # Check for stale lock files here, too,
      # such as all those over 1 day old.

      # Remove this particular lock file
      unlink ("$lock_dir/$sess.logout");

      print $q->redirect ($q->param{page});
}
else
{
      # Create a zero byte lock file for this session
      open (LOCK, ">$lock_dir/$sess.logout");
      close (LOCK);

      # Return a refused message which causes the
      # browser to prompt for authentication.
      print $q->header ( -status => 401 );
}