0: ReturnFileMask returns a filemask obtained by 'stat' 
1: to the -rwxrwxrwx format.... please tell me if there 
2: is a better way to do this.... We couldn't find one... 
3: and it works great in our case
4: 
5: sub ReturnFileMask($)
6: {
7:  my $Numeric=sprintf "%3o",(shift)&07777;
8:  my $Mask='-';
9:  foreach(split //,$Numeric)
10:  {
11:   my $Tmp=$_;
12:   my @Pat=qw(r w x);
13:   foreach(4,2,1)
14:   {
15:    (($Tmp-=$_) ge 0) ? ($Mask.=shift @Pat) : ($Mask.="-") && ($Tmp+=$_) && (shift @Pat);
16:   }
17:  }
18:  return $Mask;
19: }