# STANDARD This is some text that describes function seventhdoesnotgetenoughsleep ##

##

my %funcs;
my $comment;
while (<>) {
    if ( /^# STANDARD (.*)/ ) {
        $comment = $1;
    }
    elsif ( /^function (\S+)$/ ) {
        $funcs{$1} = $comment;
    }
}

# now layout a nice HTML page that tabulates
# the keys and values of %funcs

print " blah blah blah \n";

print "\n" for ( sort keys %funcs );

print "Name Desc
 $_  $funcs{$_}  blah blah blah \n";