my $screen_maker = ScreenMaker->new();
$screen_maker->$current_screen();

##</code><code>##

use ScreenMaker;
use Carp qw(carp);

sub screens {
    carp "Using deprecated '&screens' function";
    my $screen_maker = ScreenMaker->new();
    %screens = (
        main => sub { $screen_maker->main() },
        foo -> sub { $screen_maker->foo() },
    };
}