# cgi script
use strict;
our $LoggedOn_user_id = 0;
#
#
#
use manageusers qw($LoggedOn_user_id);
print $LoggedOn_user_id;

##</code><code>##

# package
package manageusers;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw( $LoggedOn_user_id );
our $LoggedOn_user_id = 123;
1;