#!/usr/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use lib '.';
use users;
use strict;

my $username = &validate;

print header;
print start_html("Secure Page");

print qq(
<h2>Welcome!</h2>
You are logged in as <b>$username</b>. <a href="logout.cgi">Log Out</a><br>
);

print end_html;