...
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);

}