...
use strict;
use Printer;
...
$ENV{'PATH'}='/usr/bin';
delete @ENV{'IFS','CDPATH','ENV','BASH_ENV','LPDEST','NPRINTER','NGPRINTER'};
...
sub print{
...
   my $text=get_text();

   my $prn=new Printer('linux' => '6L',);
   $prn->print_command('linux'=>
      type=>'pipe',
      'command'=> 'lp -d 6L'});
   $prn->print($text);

}

##</code><code>##

Insecure $ENV{PATH} while running with -T switch

File: /usr/local/share/perl/5.24.1/Printer/Unix.pm
Line: 127

##</code><code>##


use Env qw{PRINTER LPDEST NPRINTER NGPRINTER PATH}; 

#added the following to the original code
$ENV{'PATH'}='/usr/bin';
delete @ENV{'IFS','CDPATH','ENV','BASH_ENV'};
...

#line 127
open PRINTER, "| $self->{print_command}->{linux}->{type}"
  or Carp::croak "Can't open printer connection to $self->{print_command}->{linux}->{command};