foo
bar bza
#STANDARD Run from bombs! This describes the function bombs!
sub bombs {
  print "We already caught Saddam...what now?";
}

#STANDARD Help! My HUMVEE is Broken! This describes the function BrokenHumvee!
sub BrokenHumvee {
   print "I hit a landmine!";
}

1;

##</code><code>##

C:\Temp>perl -e "BEGIN{open(H,q|watchdog.dat|) or die $!; @watchdog = <H>; close
(H);} my $newFile; foreach my $watchdog (@watchdog){if($watchdog=~m/(#STANDARD.*
?function\s+(\S+)!)/){ $newFile .= qq|\=item| . ++$item . qq| $2\n$1\n|}}; END{
print qq|=head1 Functions\n\nThis is my list of functions\n\n$newFile\n\n=cut\n\
n|}" > sha.pod

##</code><code>##

C:\Temp>pod2html sha.pod > see.htm