#!/usr/bin/perl

use strict;
use warnings;

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

close($CMD);