Updated.

misc-scripts/ontology/scripts/demo1.pl

-#!/usr/local/ensembl/bin/perl -w
+#!/usr/bin/env perl
 
 #-----------------------------------------------------------------------
 # Demo program for the Ensembl ontology database and API.
@@ -16,10 +16,8 @@ use Bio::EnsEMBL::Registry;
 
 my $registry = 'Bio::EnsEMBL::Registry';
 
-$registry->load_registry_from_db(
-  '-host' => 'ensembldb.ensembl.org',
-  '-user' => 'anonymous'
-);
+$registry->load_registry_from_db( '-host' => 'ensembldb.ensembl.org',
+                                  '-user' => 'anonymous' );
 
 my $accession = 'GO:0030326';
 
@@ -37,12 +35,12 @@ my $term = $go_adaptor->fetch_by_accession($accession);
 my @genes = @{ $gene_adaptor->fetch_all_by_GOTerm($term) };
 
 printf( "Genes associated with the term '%s' (%s):\n",
-  $term->accession(), $term->name() );
+        $term->accession(), $term->name() );
 
 foreach my $gene (@genes) {
   printf( "stable ID = %s, external DB = %s, external name = %s\n",
-    $gene->stable_id(), $gene->external_db(), $gene->external_name() );
+          $gene->stable_id(), $gene->external_db(),
+          $gene->external_name() );
 }
 
-
 # $Id$

misc-scripts/ontology/scripts/demo2.pl

-#!/usr/local/ensembl/bin/perl -w
+#!/usr/bin/env perl
 
 #-----------------------------------------------------------------------
 # Demo program for the Ensembl ontology database and API.
@@ -33,8 +33,8 @@ sub process_term {
 
     # Display the accession of this term and of its parents.
     printf( "%s%s %s: %s\n",
-      $indent, $term->accession(), $relation,
-      join( ',', map { $_->accession() } @parent_list ) );
+            $indent, $term->accession(), $relation,
+            join( ',', map { $_->accession() } @parent_list ) );
 
     foreach my $parent_term (@parent_list) {
       process_term( $chart, $parent_term, $depth + 1 );
@@ -45,10 +45,8 @@ sub process_term {
 
 my $registry = 'Bio::EnsEMBL::Registry';
 
-$registry->load_registry_from_db(
-  '-host' => 'ensembldb.ensembl.org',
-  '-user' => 'anonymous'
-);
+$registry->load_registry_from_db( '-host' => 'ensembldb.ensembl.org',
+                                  '-user' => 'anonymous' );
 
 my $accession = 'GO:0030326';
 
@@ -64,5 +62,4 @@ my %chart = %{ $go_adaptor->_fetch_ancestor_chart($term) };
 # fetched.
 process_term( \%chart, $term );
 
-
 # $Id$