#!/usr/bin/perl

use strict;
use warnings;

use Test_logger;

sub test_addition {
    my $log = shift;
    $log->message("Inside the subroutine test_addition");
}

my $log = Test_logger->new( logfile => "my.log" );

$log->message("Start of program");

test_addition($log);