my $begin_data = tell(DATA);

##</code><code>##

open my $source, "+<", $0 or die "Couldn't reopen source file: $!\n";
seek($source, $begin_data, 0) or die "Couldn't seek to beginning of DATA: $!\n";
print $begin_data $text;