my $command = 'dir /b';
unless (open (CMD, "$command |")) {
  # irgendeine Fehlerbehandlung, z.B.
  die "Error in executing command: '$command': $!";
} # unless
else {
  my @result = <CMD>;
  close(CMD) or die "Error in finishing command '$command': $!";
} # else