Please elucidate what is not working for you.

Troll [181] as maint ~/ %cat foo                                      
+[11:33pm]
#!/usr/bin/perl -w
use strict;

&help;

sub help() {
print <<"EOF";
blah blah
EOF
}

Troll [182] as maint ~/ %perl foo                                     
+[11:33pm]
blah blah
Troll [183] as maint ~/ %
[download]