Select Code to Download

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

use Fatal qw(open binmode close);

...
binmode $tmpfile;
print $tmpfile $db_image->png or die $!;
close $tmpfile;