use strict;
use warnings;

sub test (&) {
    my $code = shift;
    local $^W = 0;
    $code->( undef );
}

test {
    print "@_";   # Use of uninitialized value
};