#!/usr/bin/perl 

use strict;
use warnings;

open(my $mail,"| /usr/lib/sendmail -oi -t") or die "Kann nicht Sendmails Pipe oeffnen: $!";
print $mail <<"EOF" or die "Kann nicht in Sendmails Pipe schreiben: $!";
From: Nagios <monitoring\@xxx.de>
To: Oktay s. <oktay\@xxx.de>
Subject: Toner Bestellung

TEST
.
EOF
close($mail) or die "Kann Sendmails Pipe nicht schließen: $!";