c:/perl/misc $ perl -MO=Deparse quine.pl 
Can't call method "PADLIST" on an undefined value at c:/Perl/lib/B/Deparse.pm line 1039.
CHECK failed--call queue aborted.