Add comment at the head of the code to say what the program is doing.

misc-scripts/ontology/scripts/demo1.pl

 #!/usr/bin/perl -w
 
+#-----------------------------------------------------------------------
+# Demo program for the Ensembl ontology database and API.
+#
+# This program fetches a GO term and uses it to retrive genes.  The
+# genes retrived will be ones that are cross-referenced with either the
+# GO term itself or with any of its descendant terms (following the
+# transitive relation types 'is_a' or 'part_of').
+#-----------------------------------------------------------------------
+
 use strict;
 use warnings;
 

misc-scripts/ontology/scripts/demo2.pl

 #!/usr/bin/perl -w
 
+#-----------------------------------------------------------------------
+# Demo program for the Ensembl ontology database and API.
+#
+# This program fetches a GO term and displays its ancestors (following
+# the transitive relation types 'is_a' and 'part_of').  The terms are
+# indented with increasing distance from the original term.
+#-----------------------------------------------------------------------
+
 use strict;
 use warnings;