| Subject: | sub save_content needs binmode |
sub save_content needs a binmode call, for portability
sub save_content {
my $self = shift;
my $filename = shift;
open( my $fh, ">", $filename ) or $self->die( "Unable to create $filename: $!" );
binmode $fh;
print $fh $self->content;
close $fh;
}