perl -MData::Dumper -Mlib=. -MHelper::Lgr -E'     \
    $l=Helper::Lgr->getInstance();$l->log(0,"Log1"); \
    $z=Helper::Lgr->getInstance();$l->set('Log', 4); \
    print Dumper $l; \
    print Dumper $z'

Get instance called from main
Not yet instantiated
Sun Dec 29 18:51:08 2019 Log1
Get instance called from main
Not yet instantiated
$VAR1 = bless( {
                 'LogName' => 'CommandLine.log',
                 '_continuation' => 0,
                 'Screen' => 0,
                 'LogDir' => '/home/random/log',
                 'fh' => \*Helper::Lgr::__ANONIO__,
                 'Log' => 4
               }, 'Helper::Lgr' );
$VAR1 = bless( {
                 'LogDir' => '/home/random/log',
                 'Screen' => 0,
                 'LogName' => 'CommandLine.log',
                 '_continuation' => 0,
                 'Log' => 0,
                 'fh' => \*Helper::Lgr::__ANONIO__
               }, 'Helper::Lgr' );