use strict;
use warnings;
my $template = 'd<';
my $nv = 2.5;
my $p = pack $template, $nv;

system $^X, '-wle', 'print $ARGV[0]', unpack('H*', $p);