sub output
{
    my $self = shift;

    binmode STDOUT;
    $self->write_file(\*STDOUT);
}