I would like to send a email to author, add a record.
It's not work. I think the problem is the email adress



open (MAIL, "|$MailPgm $rec{'eMail'} ") || die "Fehler beim Zugriff auf $MailPgm!\n";
print MAIL "From: $From\n";
print MAIL "Reply-To: $From\n";
print MAIL "To: $mailautorl\n";
print MAIL "Subject: $Subject\n\n";
print MAIL "Ein neuer Eintrag wurde hinzugefügt.\n\n";
foreach $column (@db_cols) {
print MAIL "$column: $in{$column}\n";
}
close MAIL;


I have tested this, but the \@ is not in the variable.
With not \@ is the perl not working ?
$mailautor = $rec{'eMail'};


open (MAIL, "|$MailPgm $mailautor) || die "Fehler beim Zugriff auf $MailPgm!\n";
print MAIL "From: $From\n";
print MAIL "Reply-To: $From\n";
print MAIL "To: $mailautorl\n";
print MAIL "Subject: $Subject\n\n";
print MAIL "Ein neuer Eintrag wurde hinzugefügt.\n\n";
foreach $column (@db_cols) {
print MAIL "$column: $in{$column}\n";
}
close MAIL;


What is wrong ? I have not found a answer in this forum, but I think this is not a new question.


Thank you for the answer.

Werner