$comando = "dir c:\\temp";
@result = `$comando`;
foreach $line (@result) {
     print "Linha.....: $line \n";
}