C:\>perl -e "print 'ok' if undef eq 0;"

C:\>