sub send_mail {
	my ($from, $to, $subject, $data) = @_;
	open(MAIL, "| sendmail -t") or die "Can`t start sendmail: $!\n";
	print MAIL "To: $to\n";
	print MAIL "Cc: $subject\n";
	print MAIL "Data: $data\n";
	close(MAIL) or die "Can`t close sendmail filehandle: $!\n";
	
}