#!/usr/bin/perl -w
use strict;
use CGI::Session;
#use lib "/usr/lib/perl5/site_perl/5.10.0/";
# no cookie no worky
my $session = CGI::Session->load();
redirect() if ($session->is_empty);
1;
sub redirect {
print q(Content-type: text/html
Redirect to logon
Logon Expired or not valid... Redirecting
);