sub DownloadFile {

	# $filepath is the directory
	# $filename is the name of the file
	my ($filepath,$filename) = @_;

	chdir($filepath) || return(0);
	my $filesize = -s $filename;

	# print full header
	print "Content-disposition: inline; filename=$filename\n";
	print "Content-Length: $filesize\n";
	print "Content-Type: application/octet-stream\n\n";

	# open in binmode
	open(READ,$filename) || die;
	binmode READ;

	# stream it out
	binmode STDOUT;
	while (<READ>) { print;	}
	close(READ);

	# should always return true
	return(1);
}