sub ReturnFileMask($) {
    my $Numeric=sprintf "%3o",(shift)&07777;
    my $Mask='-xw@r';
    my $Tmp="-";
    foreach(split //,$Numeric)
    {
	y/ /0/;
	$Tmp .= substr($Mask, $_ & 4, 1) . 
	        substr($Mask, $_ & 2, 1) . 
		substr($Mask, $_ & 1, 1);
    }
    return $Tmp;
}

##</code><code>##

sub ReturnFileMask($) {
    my $Numeric=sprintf "%3o",(shift)&07777;
    my $Tmp="-";
    foreach(split //,$Numeric)
    {
	y/ /0/;
	$Tmp .= substr('----rrrr', $_, 1) .
		substr('--ww--ww', $_, 1) . 
		substr('-x-x-x-x', $_, 1);
    }
    return $Tmp;
}

##</code><code>##

sub ReturnFileMask($) {
    my $Tmp="-";
    foreach(split //,sprintf "%3o",(shift)&07777)
    {
	y/ /0/;
	$Tmp .= ("---", "--x", "-w-", "-wx", "r--", "r-x", "rw-", "rwx")[$_];
    }
    return $Tmp;
}