Lo puedes hacer "a pelo":
# Localizacion de "sendmail":
if (-e "/usr/lib/sendmail") {
$SEND_MAIL="/usr/lib/sendmail -t";
} elsif (-e "/usr/sbin/sendmail") {
$SEND_MAIL="/usr/sbin/sendmail -t";
}
sub EnviarMail {
# Sintaxis:
# &EnviarMail($from, $reply, $to, $smtp, $subject, $message );
my ($fromaddr, $replyaddr, $to, $smtp, $subject, $message) = @_;
if (!open (MAIL,"| $SEND_MAIL")) {
print "** No pude acceder a sendmail por alguna razon\n\n";
return(0);
}
print MAIL "To: $to\n";
print MAIL "From: $fromaddr\n";
print MAIL "Return-Path: $fromaddr\n";
print MAIL "Reply-to: $replyaddr\n" if $replyaddr;
print MAIL "Subject: $subject\n\n";
print MAIL "$message";
print MAIL "\n.\n";
close(MAIL);
return(1);
}
#Ejemplo de uso:
my $mailDe= "summergirl\@fadlan.com";
my $mensaje= "Esto es una prueba para mandar correo con perl";
&EnviarMail ($mailDe, $mailDe, "pepito\@grillo.com", "", "Prueba con perl", $mensaje);
----
[email protected]
http://foros.fadlan.com