#!/usr/bin/perl --
use strict;
use warnings;
use CGI qw( param header );
binmode STDOUT;
print header(
    -type => $mimetype,
    -attachment => $filename,
    -Content_length => -s $filehandle,
);
...