#!/usr/bin/perl

use strict;
use warnings;

open(my $CMD, "dir |") || die $!;
while( <$CMD> )
{
	print "$_";
}

close($CMD);

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

open(my $CMD, "dira |") || die $!;
while( <$CMD> )
{
	print "$_";
}

close($CMD);

##</code><code>##

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