$ perl -Mstrict -Mwarnings -e '
    use 5.018;
    my ($x, $y) = (1, undef);
    given ($x) {
        when (1) { say "\$x == 1" }
        default  { say "\$x != 1" }
    }
    given ($y) {
        when (1) { say "\$y == 1" }
        default  { say "\$y != 1" }
    }
    my sub z { say "In z()" }
    z();
'
given is experimental at -e line 4.
when is experimental at -e line 5.
given is experimental at -e line 8.
when is experimental at -e line 9.
Experimental "my" subs not enabled at -e line 12.