You can use B::Deparse 's coderef2text() to reproduce code. Just wrap every file-scope into a main-sub to be able to deparse the top-level, too.

But be aware that comments and constant-folding are of course lost.

So maybe you should simply take care to keep the orignal source code!

Another approach would be to attach the original code as a heredoc-string into your compilation!

Maybe automated with a sourcefilter (which might be tricky when dealing with __DATA__ and __END__ tags)

Something like that should then be added to your code:

my $SOURCE_CODE = << '__END_OF_CODE__';
 
... # my original code
 
__END_OF_CODE__
 
sub DUMP_SOURCE {
  print $SOURCE_CODE;
}
[download]