# 1224985.pl
use strict; use warnings; use feature 'say';
use lib '.';
use MyClass;
use Log::Any::Adapter;

my $level = shift or die 'log level must be provided';

my $obj = MyClass->new;

Log::Any::Adapter->set('Stdout', log_level => $level);

say '>';
$obj->greet;
say '<';

__END__