Hallo,
da Du direkt Sendmail benutzt, mußt Du auch die direkten Sendmail Befehle benutzen.
Der Absender befindet sich dabi in 'From':
my $absender = 'absender@absender.de';
open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "From: $absender\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);
So sollte es gehen, habe es aber nicht getestet. Ich benutzte zum versenden von Mails in Perl mit Sendmail immer Mail::Sendmail
http://search.cpan.org/~abeltje/Test-Smoke-1.19/lib/Mail/Sendmail.pm
oder noch lieber, da etwas vielfältiger Mime::Lite
http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm
Beide sind CPAN Module
Viele Grüße
Sasha