17:44 >perl -MO=Deparse -le"use constant SNaN => unpack'd', pack'Q',0x7ff0000000
000001; print SNaN; if( SNaN != SNaN ) { print 'here'; }"
BEGIN { $/ = "\n"; $\ = "\n"; }
use constant ('SNaN', unpack('d', "\cA\000\000\000\000\000\360\177"));
print unpack("F", pack("h*", "008000000000000cfff7000000000000"));
do {
    print 'here'
};
-e syntax OK

17:45 >perl -MO=Deparse -le"use constant SNaN => unpack'd', pack'Q', 0x7ff000000
0000001; print SNaN; if( SNaN == SNaN ) { print 'here'; }"
BEGIN { $/ = "\n"; $\ = "\n"; }
use constant ('SNaN', unpack('d', "\cA\000\000\000\000\000\360\177"));
print unpack("F", pack("h*", "008000000000000cfff7000000000000"));
'???';
-e syntax OK

17:46 >