SPUG: Perl email

[Nord, Chris]

Gurus,

The below sendmail script originated from the O'reilly Perl Cookbook.  The
problem that I am having is I am not able to pass the contents of $address
into the To: position for use as an address.  I get an error returned, "No
recipient addresses found in header"  If I populate, To:
cnord\@mail-wncc.sc.attws.com  , then the email is sent on its way, no
problem.  However the contents of $market displays in Subject:, and the
contents of @mdii fills the body of the message.

Ideas on how to pass the contents of $address into the To:  position?
Ideas?

Thanx,

Chris Nord
chris.nord at attws.com

> $address = "cnord\@mail-wncc.sc.attws.com";
> 
> #######################################################################
> open(SENDMAIL, "| /usr/lib/sendmail -oi -t -odq")
>         or die "Not able to fork sendmail: $!\n";
> 
> print SENDMAIL<<"EOF";
> From: nldtt\@sc.attws.com
> To: $address
> Subject: MDII CVN/VCA FOR: $market
> 
> @mdii   
> 
> EOF
> 
> close (SENDMAIL) or warn "SENDMAIL did not close nicely";
> #######################################################################

 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
      Subscriptions; Email to majordomo at pm.org:  ACTION  LIST  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
 For daily traffic, use spug-list for LIST ;  for weekly, spug-list-digest
  Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/