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.
[download]

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.
+com
Built 21:33:05 Jun 17 2002
[download]

Anyone else have better luck with this?

laughingboy