($lo, $hi) = unpack 'NN', pack 'd', 3.14159265358979;;

print $lo, $hi;;
288179284 4213246272

print unpack 'd', pack 'NN', 288179284, 4213246272;;
3.14159265358979