my $retval = pack("H*", $perlscript);