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

use manageusers_2 qw($LoggedOn_user_id);

print "$LoggedOn_user_id\n";

##</code><code>##


#!/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;

##</code><code>##

$userid_1 = $manageusers::LoggedON_user_id;
warn("userid : '$userid_1' ");

##</code><code>##


update_tables-development.cgi: Use of uninitialized value in concatenation (.) or string at update_tables-development.cgi line 66.
userid : ''  at update_tables-development.cgi line 66.
[Sat Apr  8 13:55:38 2017] update_tables-development.cgi: userid : ''  at update_tables-development.cgi line 66.