19 lines
438 B
Perl
19 lines
438 B
Perl
|
#!/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);
|