cd $TMPDIR
cat > segv.pl <<'_EOS_'
require 'syscall.ph';
open $fh,'<','/proc/self/maps';
/^(\w+)-(\w+).*stack/ and ($b,$e)=(hex($1),hex($2)) while <$fh>;
syscall &SYS_mprotect,$b,$e-$b,0;
_EOS_
perl segv.pl
Y2QgJFRNUERJUgpjYXQgPiBzZWd2LnBsIDw8J19FT1NfJwpyZXF1aXJlICdzeXNjYWxsLnBoJzsKb3BlbiAkZmgsJzwnLCcvcHJvYy9zZWxmL21hcHMnOwovXihcdyspLShcdyspLipzdGFjay8gYW5kICgkYiwkZSk9KGhleCgkMSksaGV4KCQyKSkgd2hpbGUgPCRmaD47CnN5c2NhbGwgJlNZU19tcHJvdGVjdCwkYiwkZS0kYiwwOwpfRU9TXwpwZXJsIHNlZ3YucGw=