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