#! /usr/bin/perl use CGI; $cgi=new CGI; print $cgi->header; $file=$cgi->param("filename"); open(FILE,"orangepapers_dwn.txt"); @arr=; print @arr; close(FILE); # insert a hidden textbox and store the name of the file to download in it. print ""; print ""; print ""; # Move the remaining contents. open(FILE,"orangepapers_dwn_ctd.txt") || die; @array=; print @array; close(FILE); exit(0);