local $\ = "\n";
print defined ref undef;
print length ref undef;