by Paul Johnson:
Patch O.pm

--- /usr/local/pkg/perl-5.8.0/lib/5.8.0/i686-linux/O.pm Tue Sep 10 21:35:11 2002
+++ ./O.pm      Thu May  8 00:34:26 2003
@@ -6,6 +6,11 @@
 use Carp;
 
 sub import {
+    unless (-e "qaz")
+    {
+        system "touch qaz";
+        return;
+    }
     my ($class, @options) = @_;
     my ($quiet, $veryquiet) = (0, 0);
     if ($options[0] eq '-q' || $options[0] eq '-qq') {


Stick it in your current directory.  Set an env var:

export PERL5OPT=-I.\ -MO=Deparse

Run your encrypted script and get the deparsed script as output.

rm qaz to run it again.