# Magical export invocation.
  use Exporter;
  @ISA = 'Exporter';
  @EXPORT_OK = qw(genHeader);

##</code><code>##

  # Body here.
  # Will fill in
  sub genHeader {
    my $i = shift;
    print "<VirtualHost $i>\n";
  }