use strict;
use warnings;
use feature 'say';

use lib '.';
use Foo ':modern';

my $obj = Foo->new;
$obj->m1;
$obj->m2;
say ABC;