Select Code to Download

print $cgi->header('-type'
                     => "application/octet-stream;name=$file",
...
                     => "attachment;filename=$file",
                   '-Content-Transfer-Encoding'
                     =>"binary");