#!/usr/bin/perl

use strict;
use warnings;

open(my $CMD, "dira |") || die "something else\n";
while( <$CMD> ) {
    print "$_";
}

close($CMD);

##</code><code>##

Can't exec "dira": No such file or directory at ./test.pl line 6.
something else