sub send_message {

	$dir  = "/blast/";
	$file = "${dir}/file.txt";

	open MAILIST, "<$file" 
		or die "Can't create filehandle: $!";	

	while(<MAILIST>) {
		push (@address, $_);
	}
		
		close MAILIST 
			or die "Can't close filehandle:$!";
		
	$mailprogram = '/usr/lib/sendmail';
	
	open( MAIL,"|$mailprogram -t" )
		or die "Can't open sendmail! ($!)";
	
	foreach (@address) {
		$from    = $q->param( 'mail_from' || '' );
		$subject = $q->param( 'mail_subject' || '' );
		$message = $q->param( 'html_message' || '' );
		$headers  = "Content-Type: text/html; charset=iso-8859-1\r\n";
		$headers .= "MIME-Version: 1.0\r\n";
		$headers .= "Content-Transfer-Encoding: 7bit\r\n";
		
		print MAIL "To: $_\n";
		print MAIL "From: $from\n";
		print MAIL "Subject: $subject\n";
		print MAIL '$headers';
		print MAIL '$message';
	}

	return close(MAIL);

}