print $q -> header (
    -type           => 'application/octet-stream',
    -attachment     => $attfeld[0],
    -Content_Range  => 'bytes',
    -Content_length => length $content,
);