Kinda sad that this doesn't actually work :-(

lexical_subs_sad.pl

#!/usr/bin/env perl

use v5.18;
use warnings;

no warnings qw(experimental::lexical_subs);
use feature qw(lexical_subs);

package MyObject {
    sub new { bless({}, __PACKAGE__) }

    sub print_hello { shift->print("Hello, World") }

    my sub print {
        my ($self, $str) = @_;
        say $str;
    }
}


my ($obj) = MyObject->new();
$obj->print_hello();

__END__

% perl lexical_subs_sad.pl
Can't locate object method "print" via package "MyObject" at lexical_subs_sad.pl line 12.