# 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);";
####
C:\_32\pscrpt>perl test.pl
SV = PV(0x4bcf98) at 0x571248
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x4b7e88 "'\232\231\231\231\231\231\231\231\0@\0\0\0\0\0\0'"\0
CUR = 18
LEN = 20
Can't find string terminator "'" anywhere before EOF at -e line 1.
##
##
C:\_32\pscrpt>perl test.pl
SV = PV(0x3ecf98) at 0x383348
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x3e7e88 "'\vL\177v\257zb\206\264>\0\0\0\0\0\0'"\0
CUR = 18
LEN = 20
Can't find string terminator "'" anywhere before EOF at -e line 1.
##
##
C:\_32\pscrpt>perl test.pl
SV = PV(0x26cf98) at 0x5311f8
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x267e88 "'9\302\271\243\"\211\224\255\264>\0\0\0\0\0\0'"\0
CUR = 18
LEN = 20
Use of uninitialized value $_ in print at -e line 1.
##
##
C:\_32\pscrpt>perl test.pl
SV = PV(0x38cf98) at 0x4c51b8
REFCNT = 1
FLAGS = (POK,pPOK)
PV = 0x387e88 "'\245^,\356\266\0208\270\266>\0\0\0\0\0\0'"\0
CUR = 18
LEN = 20
Can't find string terminator "'" anywhere before EOF at -e line 1.