in reply to get current script as text

One of the rare times you can use 1-arg open! 
local $/;open 0;my $t=<0>;

[download]

In Section Seekers of Perl Wisdom