package Log;

my $instance;
...
sub get_logger {
  unless ($instance) {
    $instance = ...; # create the Log instance here
    # another option is to throw an exception
  }
  $instance;
}