in reply to Get the source code for the running application into a hash

That could be a little dangerous without also doing local $^I;.

In Section Cool Uses for Perl