# test.pl

use warnings;
use Devel::Peek;

$template = 'D<';
$nv = 2.4;
$p = pack $template, $nv;
$s = "'$p'";

Dump $s;

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