my $sendmailProg = $self->param('sendmail') || $defaults{'sendmail'};
    open(MAIL,"|$sendmailProg -t") or  $fehler = 1;
        unless( $fehler ){
        print MAIL "To: ".$self->param('FeedbackEmpfaenger')."\n";
        print MAIL "Subject: ".$self->param('FeedbackBetreff')."\n\n";
        print MAIL "$sendText\n";
        close(MAIL) or $fehler = 1;
    }

my $mail = new FileHandle "/usr/sbin/sendmail";

           use FileHandle;

           $fh = new FileHandle;
           if ($fh->open("< file")) {
               print <$fh>;
               $fh->close;
           }

   my  $fh = new FileHandle "/usr/bin/sendmail";
    if (defined $fh) {
        print $fh "$message\n";
        $fh->close;
    }

   my  $fh = new FileHandle "/usr/bin/sendmail";