use strict;
use warnings;

my $run_cmd = "dira";

if ( open(my $CMD, "$run_cmd |") ) {
  while( <$CMD> ) {
      print "$_";
  }
  close($CMD);
} else {
  die "Problem executing command $run_cmd - $!";
  # ... or something non-fatal
}