1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl

use strict;
use warnings;

open (MAIL, "|/usr/sbin/sendmail lol\@gmail.com");
print MAIL "Subject: Hi there\r\n";
print MAIL "Hi zok!\r\n";
print MAIL ".";
close MAIL;