Select Code to Download

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