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

sub do_that {
    say 'Hello from MySecond';
    $log->warn('This is a warning!');
}

1;