in reply to Perl and data types (use Config;)

How about using pack()?
print 'singlesize ', length(pack("f", 1.0)), "\n";