Select Code to Download

use strict;
use warnings;
...
my $p = pack $template, $nv;

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