# gesamte Ausgabe in $result
my $result = qx( dir C:/ );

# oder

open my $pipe, '-|', 'dir C:/' or die "cannot open pipe: $!";

while ( my $line = <$pipe> ) {
  # tu was mit zeile
}

close $pipe or die "cannot close pipe: $!";