sub printToFile
{
    my ($self, $fileName) = @_;
    my $fh = new FileHandle ($fileName, "w") ||
        croak "printToFile - can't open output file $fileName";

    $self->print ($fh);
    $fh->close;
}