Select Code to Download

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

use ScreenMaker;
use Carp qw(carp);
...
        foo -> sub { $screen_maker->foo() },
    };
}