Index: /trunk/doc/misc/perlCodeExamples/foo.pl
===================================================================
--- /trunk/doc/misc/perlCodeExamples/foo.pl	(revision 3086)
+++ /trunk/doc/misc/perlCodeExamples/foo.pl	(revision 3087)
@@ -3,5 +3,5 @@
 # Copyright (C) 2004  Author's Name
 #
-# $Id: foo.pl,v 1.1 2005-01-18 23:25:09 jhoblitt Exp $
+# $Id: foo.pl,v 1.2 2005-01-25 01:50:13 jhoblitt Exp $
 
 use 5.008005;                           # optional
@@ -18,5 +18,7 @@
 my $baz;                                # is a lexical variable in the top level scope
 
-sub fuu
+fuu();                                  # the body of the script
+
+sub fuu                                 # subroutines
 {