$ perl -e 'print "OK\n" if undef eq ""' OK