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

use manageusers_2 qw($LoggedOn_user_id);

print "$LoggedOn_user_id\n";