Select Code to Download

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

...
  @names = grep( ! /^[.]/, @names ) unless $showhidden;
  return( @names );
}