Mailer dengan Perl

Beberapa hari yang lalu ada temen tanya-tanya tentang mailer dengan Perl, Ehmm… untuk menjawab pertanyaan tersebut maka saya cuma bisa nunjukkan scriptnya seperti dibawah ini.

#!/usr/bin/perl —

use strict;

my $mailFrom = ‘halim@umm.ac.id’;
my $mailTo = ‘johan@umm.ac.id’;

open MAIL,”/usr/sbin/sendmail -t”;
print MAIL “FROM: $mailFrom \n”;
print MAIL “TO: $mailTo\n”;
print MAIL “Subject: Perl Memang Ok!\n”;
print MAIL “MIME-Version: 1.0\n”;
print MAIL “Content-type: text/plain; charset=ISO-2022-JP\n”;
print MAIL “Content-Transfer-Encoding: 7bit\n”;
print MAIL “——————————————————–\n”;
print MAIL “Jangan Kaget, Aku cuma tes apa yang aku kasih tahu lewat YM tadi siang. From:johan \n”;
print MAIL “——————————————————–\n”;
close (MAIL);

Dengan menggunkan script Perl yang sederhana diatas kita sudah bisa mengirimkan email dengan menggunakan sendmail tanpa melalui email clien. Karena langsung menggunakan sistem SMTP maka pengirim dapat memalsukan alamat emailnya my $mailFrom = ‘halim@umm.ac.id’; bisa di ganti dengan alamat yang diinginkan misal popo@yahoo.com, nah karena begitu mudahnya memalsukan alamat email pengirim maka kita sebagai pengguna email sudah seharusnya berhati - hati dan tidak langsung terpikat dengan email yang isinya rayuan” ataupun yang laiinya, soalnya siapa tahu itu kiriman dari si pengirim email palsu.

.."..Blogging : Programing.."..