This is not cross-platform compatible, but it does allow you to distribute an executable version of a Perl script without giving out the source.

• 虽然这个代码不是跨平台兼容的,但是它允许您分发一个Perl的可执行脚本,而不会泄漏出源代码。