#! perl -slw
use strict;

sub test (&) {
    my $code = shift;
    {
        no warnings 'uninitialized'; ## A
        $code->( undef );
    }
}

test {
#    no warnings 'uninitialized';
    print "@_"
};