use Log::Dispatch::Screen;

my $log = Log::Dispatch->new();
$log->add(
    Log::Dispatch::Screen->new(
        name => 'screen',
        min_level => 'error'
    )
);