Select Code to Download

sub ReturnFileMask($) {
    my $Numeric=sprintf "%3o",(shift)&07777;
...
    }
    return $Tmp;
}

sub ReturnFileMask($) {
    my $Numeric=sprintf "%3o",(shift)&07777;
...
    }
    return $Tmp;
}

sub ReturnFileMask($) {
    my $Tmp="-";
...
    }
    return $Tmp;
}