sub is_dir {
   return opendir my $dir, shift;
}