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