I started out with
open $fh, '<', $0 or die $!; print while <$fh>; [download]
which even then felt wrong.
In reply to Re^2: How I Learned About Quines by blakew in thread How I Learned About Quines by blakew