Hmmm. I wanted to Deparse this beastie to study it more carefully. Deparse goes BOOM! as shown below:
c:/perl/misc $ perl -MO=Deparse quine.pl
Can't call method "PADLIST" on an undefined value at c:/Perl/lib/B/Dep
+arse.pm line 1039.
CHECK failed--call queue aborted.
I'm running the latest ActivePerl distribution for Win32.
c:/perl/misc $ perl -v
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)
Copyright 1987-2001, Larry Wall
Binary build 633 provided by ActiveState Corp. http://www.ActiveState.
Built 21:33:05 Jun 17 2002
Anyone else have better luck with this?