#!/usr/local/bin/perl -w
use strict;
my $x = pack("F",8.78);
print(unpack("B*",$x));
__OUTPUT__
1000111111000010111101010010100001011100100011110010000101000000