$ perl -le'print undef eq undef'
1