#!/usr/bin/perl -l

use strict; # https://perlmonks.org/?node_id=11133064
use warnings;

my $template = 'd<';
my $nv = 2.4;
$nv = 4135;                     # NOTE errors for this number
my $p = pack $template, $nv;
use Data::Dump qw(pp);
my $s = (pp $p) =~ s/"(.*)"/qq($1)/sr; # tweak for different delimiter
print ">$s<\n";

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