BEGIN { die "// not implemented in Perl $]\n" if ! eval "undef() // 1" }