use warnings;
BEGIN { $^W = 0; }
my $s = '' . undef();  # Use of uninitialized value