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;
}