|
#!/usr/bin/perl
$from="$me\@mydomain.com";
$to="you\@yourdomain.com";
$subject="Test email";
$sendmailpath="/usr/sbin/sendmail";
$message = "This is a test e-mail using Sendmail\n\nFrom me\n\n";
open (SENDMAIL, "| $sendmailpath -t") or die "Cannot open $sendmail: $!";
print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $from\n";
print SENDMAIL "To: $to\n\n";
print SENDMAIL "$message";
close (SENDMAIL);
|