#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use DBI;
use Encode;
use Fcntl ':flock';
use FindBin '$Bin';
use Text::Table::Tiny;
use File::Copy;
use Date::Calc qw(Add_Delta_Days Today);
binmode STDOUT, ":encoding(UTF-8)";

my $lpr;

open ($lpr, "| lpr") or die "Fehler beim Drucken: $!";
print $lpr, "Das ist der Text, der nun gedruckt sein sollte... \n";
close $lpr or die or "Fehler beim Drucken: $!";

exit;

Useless use of string in void context at ./druckertest.pl line 19.
GLOB(0x9a7c38)Das ist der Text, der nun gedruckt sein sollte... 
lpr: Fehler - stdin ist leer, somit wurde kein Auftrag gesendet.
Died at ./druckertest.pl line 19.