Select Code to Download

my $file = get_image_info($document);
my $filesize = -s $file;
...

# For Debugging Purposes
print $request->header(), " ", length($buffer), " " , -s $file ;

# This didn't work.  Displays "Save As" dialog twice, no image sent.
print "Content-type: image/tiff\n";
...
                       -Content_Length => $filesize,
                       -Content_Type => "application/octet-stream",
                       ), $buffer;