Select Code to Download

@EXPORT = qw(
  $LoggedOn_user_id
...
warn("num: '$num'");
$LoggedOn_user_id = $num; 
warn("is already logged on loggedon_user_id : '$LoggedOn_user_id'");

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

my $userid_1 = 0;
$userid_1 = $manageusers::LoggedOn_user_id;
...
#$userid_1 = 428;
my $uid = $userid_1;
my $uid = $userid_1;