open TMPFILE, ">file.png"    or die $!;
binmode TMPFILE              or die $!;
print TMPFILE $db_image->png or die $!;
close TMPFILE                or die $!;

##</code><code>##

use Fatal qw(open binmode close);

open my $tmpfile, ">file.png";
binmode $tmpfile;
print $tmpfile $db_image->png or die $!;
close $tmpfile;