Select Code to Download

print ("Content-Type:application/x-download\n");
print "Content-Disposition: attachment; filename=$file\n\n";

use CGI;
my $html= new CGI;
...
    close FILE;
 # use Unlink if u want to delete the files after download.
#unlink ($filepath);