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