$ perl -le'print @{warn wantarray ? 1 : defined wantarray ? 0 : "undef"}'
undef at -e line 1.