#!/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;