in reply to Re: How I Learned About Quines
in thread How I Learned About Quines

I believe that's called "cheating." :)

I started out with

open $fh, '<', $0 or die $!; print while <$fh>;

which even then felt wrong.