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