@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'");