print MAIL "From: $from\n";
print MAIL "To: $to_ad\n";
print MAIL "Subject: $subject\n\n";
my $stat = print MAIL "$message";
print "Mail Status: $stat\n";

close(MAIL) || warn "Error closing mail: $!";
print "Mail sent.\n";