Select Code to Download

foo
bar bza
...
}

1;

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

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