sub DirCmd {
  my( $w, $dir, $showhidden ) = @_;

  my $h = DirHandle->new( $dir ) or return();
  my @names = grep( $_ ne '.' && $_ ne '..', $h->read );
  @names = grep( ! /^[.]/, @names ) unless $showhidden;
  return( @names );
}