Skrip sederhana yang ditulis dengan PERL ini bisa digunakan untuk mengirim email secar otomatis dengan bantuan cron. Saya tulis di sini hanya sebagai arsip untuk mempermudah jika suatu saat butuh sehingga tidak perlu mencari ke mana-mana. Mohon maaf kalau tanpa penjelasan, kalau ada kesempatan nanti saya coba bahas tentang skrip ini.
#!/usr/bin/perl -w
use MIME::Lite;
use Net::SMTP::TLS;
$FROM='dari@domain.com;
$TO='kepada@domain.co.id';
$subject='TESTING 123';
$SMTPUSER='dari@domain.com';
$SMTPPASS='rahasia';
$message_text='testing';
my $msg = MIME::Lite->new(
From => $FROM,
To => $TO,
Subject => $subject);
$msg->attach(Encoding => 'base64',
Type => 'text/plain; charset=UTF-8',
Data => $message_text);
my $smtp = new Net::SMTP::TLS::ButMaintained(
'smtp.gmail.com',
Port => 587,
User => $SMTPUSER,
Password => $SMTPPASS,
Timeout => 60);
$smtp->mail($FROM);
$smtp->to($TO);
$smtp->data;
$smtp->datasend($msg->as_string);
$smtp->dataend;
$smtp->quit;


