use strict;
use warnings;
use 5.012;

package Log;

{

    my $logger;

    sub get_logger {
        if (not $logger) {
            my ($class, $path) = @_;

            say "Creating logger...";

            $logger = {};
            bless $logger, "Log";
            $logger->create_logfile($path);

        }
        else {
            say "Logger already exists..."
        }

        return $logger;
    }
}

sub create_logfile {
}

sub do_stuff {
    #$logger = 'hello';
}



##</code><code>##


use strict;
use warnings;
use 5.012;

use Log;

my $log = Log->get_logger();   #Creating logger...
$log = Log->get_logger();       #Logger already exists...
$log = Log->get_logger();       #Logger already exists...

#$log->do_stuff;


##</code><code>##

Global symbol "$logger" requires explicit package name at Log.pm line 32.
Compilation failed in require at 2.pl line 5.