use Fatal qw(open binmode close);

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