=whatever you want
...
all this text is now comment
all this text is now comment
all this text is now comment
...
=cut
[download]

It's time for @#$! multiline comments in perl!

Yeah yeah, I know ...

• use 'here docs' (poor option)
• use 'POD' (interferes with docs and no indenting)
• use 'ACME::Comment' (requires module install rights)
• use the 'q' operator (unsuitable for serious use)

    q`<!-- ---------------------------
    <region-function_docs>
    main:
      - name : DoFoo
        desc : do some foo
        usage: DoFoo($optional_greeting);
        </region-function_docs>
        --------------------------- -->`if(000);
    sub DoFoo{
       my $optional_greeting = shift || 'Hello World';
       print "$optional_greeting\n";
       print "we are now doing foo\n";
       print "\n";
    }###end_sub
[download]

So just write your code like that and problem (solved?).