#!perl

use strict;
use warnings;
use Net::LPR;
use File::Slurp;

my $or_printer = Net::LPR->new(
    StrictRFCPorts => 1,
    RemoteServer   => '192.168.148.32',
    RemotePort     => 515,
    PrintErrors    => 1,
    RaiseErrors    => 1,
);

$or_printer->connect();

my $s_pdf_content = read_file('beispiel.pdf');

my $jobkey = $or_printer->new_job();
$or_printer->send_jobs('lp');
$or_printer->job_mode_text($jobkey);
$or_printer->job_send_control_file($jobkey);
$or_printer->job_send_data($jobkey, $s_pdf_content, length($s_pdf_content));
$or_printer->disconnect();