my $mask	= shift;
  my @folders	= glob("$mask");

  if (scalar(@folders) == 0) {
    return undef;
  }