$ perl -MCGI -le " print CGI->header( qw{ -type mime/type -attachment filename } ) "
Content-Disposition: attachment; filename="filename"
Content-Type: mime/type