#!/usr/bin/perl

use strict;
use warnings;

my $file = '/usr/local/tmp_files/temp_file_for_print.txt';

open (LPR, "| lpr -P/dev/lp");
print LPR $file;
close(LPR);