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