sub save {
    my ($self, $file) = @_;
    open(OUT, ">:encoding($self->{encoding})", "$file")
      or croak "Cannot open file $file for write: $!";
    print OUT $self->as_string;
    close OUT;
}