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