#!/usr/bin/perl 
#use warnings;
.
.
.
sub download {


use CGI;

$html=new CGI;


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


}