open(PIPE,"dir /od a: |")||die 'cannot pipe!';
  my @dirs = <PIPE>;
close(PIPE);