--- a/exiacl	Fri Aug 05 08:47:57 2005 +0000
+++ b/exiacl	Fri Aug 05 15:02:37 2005 +0000
@@ -12,7 +12,7 @@
     --dst=s	dst ip/name		[!$Cf->dst!]
 
 
-    --helo=s	helo name		[!$Cf->helo!]
+    --Helo=s	helo name		[!$Cf->Helo!]
     --From=s	envelope from		[!$Cf->From!]
 
     --from=s	mail from:		[!$Cf->from!]
@@ -48,7 +48,7 @@
     src	    => { ARGS => "=s", DEFAULT => "131.111.8.41" },
     dst	    => { ARGS => "=s"  },
 
-    helo    => { ARGS => "=s", DEFAULT => "sesame.csx.cam.ac.uk" },
+    Helo    => { ARGS => "=s", DEFAULT => "sesame.csx.cam.ac.uk", ALIAS => "Ehlo" },
 
     From    => { ARGS => "=s", DEFAULT => "<>" },
     from    => { ARGS => "=s", DEFAULT => "postmaster\@exim.org" },
@@ -99,7 +99,7 @@
     open3($w, $r, undef, @cmd) or die "Can't run @cmd: $!\n";
 
      read_exim $r;
-    write_exim $w, "EHLO ".$Cf->helo."\n";
+    write_exim $w, "EHLO ".$Cf->Helo."\n";
      read_exim $r;
     write_exim $w, "MAIL FROM: ".$Cf->From."\n";
      read_exim $r;
@@ -109,6 +109,7 @@
      read_exim $r;
     write_exim $w, "From: ".$Cf->from."\n";
     write_exim $w, "To: ".$Cf->to."\n";
+    write_exim $w, "Subject: Test\n";
 
     if (not -t STDIN) {
 	write_exim $w, "\n";