Select Code to Download

$packed = pack 'd', '7ff0000000000001';
$d = unpack 'h16', $packed;

use warnings;
use strict;
...
print doubleToHex(get_snan());

sub doubleToHex { scalar reverse unpack 'h16', pack 'd', $_[0] }