Atachment mit Sendmail

[Sascha]

tach,
ich verschicke eine mail mit meinem cgi(sendmail)...

sub message_added {
    open (MAIL, "$mail_program $FORM{'EMail'}") die "Can't open $mail_program!\n";

print MAIL "Reply-to: $recipient ($my_name)\n";

print MAIL "Subject: blabla\n\n";

und nun wird ich gern noch nen atachment anhängen.
kann mir bitte, bitte jemand schreiben wie.

danke
sascha