sub download_file {
	my ($filename) = @_;
	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);
}