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';
}