#!/usr/bin/perl

use strict;
use warnings;

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

close($CMD);