##
$ perl goedel.pl
Use of uninitialized value in say at goedel.pl line 7.
1
1
$
##
##
#!/usr/bin/perl
use warnings;
use strict;
use v5.20;
say undef;
say !undef;
say !!undef;
say map { grep { // } @_ } (!undef)[!!undef];
{
say 1;
}
exit $?;
# what is the exit status?