#!/usr/bin/perl -l

use strict;
use warnings;

my $template = 'd<';
my $nv = 2.4;
$nv = 4135;                     # NOTE errors for this number
my $p = pack $template, $nv;
my $s = "'$p'";
print ">$s<\n";

system $^X, '-wle', "print unpack('H*', $s);";