perl -e "print 0E0 ? 'TRUE' : 'FALSE'"