package MyFirst; 
use strict; use warnings; use feature 'say';
use Log::Any qw/ $log /;

sub do_this {
    say 'Hello from MyFirst';
    $log->debug('This is a debug message');
}

1;