@EXPORT = qw(
  $LoggedOn_user_id
  $VERSION = '0.0.1';
}

our $LoggedOn_user_id;

my $username1 = $session->param("username");
warn("username1 : '$username1'");
my $text = $username1;
$text =~ m/(\d+)/;
my $num = $1;
warn("num: '$num'");
$LoggedOn_user_id = $num; 
warn("is already logged on loggedon_user_id : '$LoggedOn_user_id'");

##</code><code>##

my $userid = 0;
$userid = $manageusers::LoggedOn_user_id;

##</code><code>##

my $userid_1 = 0;
$userid_1 = $manageusers::LoggedOn_user_id;
warn("userid : '$userid_1' ");
#$userid_1 = 428;
my $uid = $userid_1;
my $uid = $userid_1;