( $_0, $_1, $_2, $_3 ) = unpack 'n*', pack 'd', exp(1);;

print unpack 'd', pack 'n*', $_0, $_1, $_2, $_3;;
2.71828182845905