foreach (@{ $DBI::EXPORT_TAGS{sql_types} }) {
  my $ref = \&{"DBI::$_"};
  printf "%s=%d\n", $_, &$ref;
}

##</code><code>##

There is one exception to this rule:

                 $bar = \&{’foo’};
                 &$bar;

             is allowed so that "goto &$AUTOLOAD" would not break under stricture.