prompt> perl -we "print ref( undef() ) ? 'y' : 'n'"
n