Select Code to Download

package Foo;

use Method::Signatures;
...
func hello($greeting, $place) {
    print "$greeting, $place!\n";
}

perl -i.bak -pe"if(s/^(func|method)/#<<<\n$1/){ s/$/#>>>/ }"  temp.pl

7:    syntax error at ') {', didn't see one of: case elsif for foreach
+ given if switch unless until when while

--- Tidy.pm.orig    2009-06-16 13:00:50.000000000 -0700
+++ Tidy.pm    2010-10-11 03:38:42.015625000 -0700
...
                         "syntax error at ') {', didn't see one of: $l
+ist\n");
                 }