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

##</code><code>##

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

C:\>