C:>perl -le "print scalar reverse unpack 'h*', pack 'd<', -48.48;" c0483d70a3d70a3d C:>perl -le "print scalar reverse unpack 'h*', pack 'd<', -4.848e1;" c0483d70a3d70a3e