#!/usr/bin/perl -w

use strict;
use IO::Pipe;

my $pipe = IO::Pipe->new();
$pipe->reader('dir c:\\temp');

my $line;

while ($line = <$pipe>) {
     print "Linha.....: $line \n";
}