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

  my $fh = $self->{'destfile'};

  print $fh "$text";
}