perl -wTe '$z = pack "p", "hi\n"; $r = unpack $ARGV[0], $z; eval $r;' p