if ($sid) {
  $session = CGI::Session->new(undef, $sid, {Directory => 'c:/apache/sessions'});
  if (! logged_in($session)) {
    $session->delete();
  }
}