#!/usr/bin/perl
use warnings;
use strict;

package manageusers_2;

BEGIN {
    use vars qw($VERSION @ISA @EXPORT);
    use DBI;

#    $ENV{DBI_TRACE}=1;
#    $ENV{PERL_DBI_DEBUG}=1;

    require Exporter;

    @ISA = qw(Exporter);

    # exported functions
    our @EXPORT_OK = qw($LoggedOn_user_id);
    $VERSION = '0.0.1';
}

our $LoggedOn_user_id=428;
1;