#!perl -l
use strict;
use warnings;
use Config;


my $val = 3.625;

if($Config{ivsize} == 4) {

 my $to_int =  unpack 'j', pack 'f', $val;;
 print $to_int; # 1080557568

 my $to_float =  unpack 'f', pack 'j', $to_int;;
 print $to_float; # 3.625

}
else {
 print "Can't pack C floats to IV/UV";
}