Zwei Verbesserungsvorschlaege:
#!/usr/bin/perl
#!/usr/bin/perl -w
open(MAIL,"$mailprog -t") or die "Fehler beim Versenden der Mail: $!";
[...]
close(MAIL);
close MAIL or die "can't close sendmail nicely: $!";
Erst beim Schliessen steht fest, ob der Aufruf tatsaechlich erfolgreich war.
Peter