package MyLoggingModule;

use strict;
use warnings;

# ----------
my $logfile;

# ----------
sub init {
    my ($logfile_name) = @_;
    open($logfile, '>>', $logfile_name)
      or die "Couldn't open log file.";
}

sub loggit {
    my ($log_msg) = @_;
    print {$logfile} $log_msg, "\n";
}

# ----------
1;