$ perl -Mwarnings -le 'my $x; print 1 if defined $x'