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

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

##</code><code>##

@t1 = glob('*1');
@t2 = glob('1');
@t3 = glob('file2');
@t4 = glob('*3');