print $out pack('f<',2.5) ; #single, little endian
print $out pack('d<',2.5) ; #double, little endian
print $out pack('f>',2.5) ; #single, big endian
print $out pack('d>',2.5) ; #single, big endian