#!/usr/bin/perl
use strict;
use warnings;
print "Content-type: text/html\n\n";
my $title='some title here';
my $to='nn@nn.com';
my $from= 'aa@aa.com';
my $subject='subject info here';
open(MAIL, "|/usr/sbin/sendmail -t");
## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
## Mail Body
print MAIL " Info On:".localtime()."\n";
print MAIL `df -h`."\n";
print MAIL "---------------------------------------------------------\n";
print MAIL `free`."\n";
print MAIL "----------------------------------------------------------\n";
close(MAIL);
print "$title\n\n\n";
## HTML content sent, let use know we sent an email
print "$title
A message has been sent from $from to $to
";