#!/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;