my $errorwr = $image->Write("$bformat{$nr}:-");
warn ("ERROR $errorwr # Writing image") if defined $errorwr;