run3 ['lpass', $cmd, $args], undef, undef, \&_filter;

sub _filter {
  my $output = shift;
  $output =~ s/lpass/lpp/gm;
  print $output;
}