BEGIN { die "// not implemented in Perl $]\n" if $] < 5.010 }