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