$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -MCarp::Always -E'

$ perle '
    my $expected_error = 1;
    my $got_error = 0;

    eval {
        my @rgb = qw{#ff0000 #00ff00 #0000ff};
        open my $fh, "<", "nonexistent_file";
        1;
    }
    or do {
        $got_error = 1;
    };

    say "\$expected_error[$expected_error] \$got_error[$got_error]";
'
Possible attempt to put comments in qw() list at -e line 6.
$expected_error[1] $got_error[1]