sub start { my ($self, $divisions, $file, $dump_all) = @_; $self->SUPER::start($divisions, $file, $dump_all); for my $fh (values %{$self->{files}}) { print $fh '#' . join("\t", qw(name species division taxonomy_id assembly assembly_accession genebuild variation pan_compara peptide_compara genome_alignments other_alignments core_db species_id) ) . "\n"; } return; }