sub download {


use CGI;

$html=new CGI;


print $html->header(-type => 'application/octet-stream', -attachment => $_[1]);
        
	open($peunter, "<", $_[0].$_[1]);
	binmode($peunter);
# 	while (read($pointer,$bytes,1024)) {
# 			print $bytes;
# 	}
	@data = <$peunter>;
	
	close($peunter);
	
	print "@data";


}