#!/usr/bin/perl
# moduletest.cgi
use strict;
use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';
use manageusers qw($LoggedOn_user_id);
my $now = scalar localtime;

print header,start_html;
print qq(<b>$now</b><pre>
\$manageusers::LoggedOn_user_id = $manageusers::LoggedOn_user_id
\$LoggedOn_user_id = $LoggedOn_user_id
</pre>);

print end_html;