{
        my $x = 42;
        my $s = sub { $x++ };
        say &$s();
    }