The other nodes answering this question are much better but I was just having so much I couldn't resist:

The data file:

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 Broke
+nHumvee!
sub BrokenHumvee {
   print "I hit a landmine!";
}

1;
[download]

The 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
[download]

Finally:

C:\Temp>pod2html sha.pod > see.htm
[download]