--- a/exiacl.pl	Thu Jul 12 10:04:13 2007 +0000
+++ b/exiacl.pl	Thu Jul 12 10:10:05 2007 +0000
@@ -10,11 +10,12 @@
 
     --from=s	from:			[!$Cf->from!]
     --to=s	to:			[!$Cf->to!]
+		(comma separated)
 
     --Helo=s	HELO	   		[!$Cf->Helo!]
     --From=s	MAIL FROM:		[!$Cf->From!]
     --To=s	RCPT TO: 		[!$Cf->To!]
-                (comman separated)
+                (comma separated)
 
     --src=s	src ip/name		[!$Cf->src!]
     --dst=s	dst ip/name		[!$Cf->dst!]
@@ -141,7 +142,7 @@
     write_exim $w, "MAIL FROM: ".$Cf->From."\n";
      read_exim $r;
 
-    foreach my $rcpt (split /\s*,\s*/, $Cf->to) {
+    foreach my $rcpt (split /\s*,\s*/, $Cf->To) {
 	write_exim $w, "RCPT TO: $rcpt\n";
 	 read_exim $r, "5";
     }