sub output {
  my($self, $text) = @_;

  print $self->{'destfile'} "$text";
}