#!/usr/bin/perl

use strict;
use warnings;

open(my $CMD, "dira |") || die "another text";
# ...
close($CMD);


##</code><code>##

Der Befehl "dira" ist entweder falsch geschrieben oder
konnte nicht gefunden werden.