_SHOW_OS_FOLDERS.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_SHOW_OS_FOLDERS();}
1;
sub _SHOW_OS_FOLDERS {
    if (scalar(keys %OS_FOLDERS) > 0) {
        printf "  %-20s %-80s\n","OS_FOLDER","PATH";
        printf "  %-20s %-80s\n","--------------------","--------------------------------------------------------------------------------";
        foreach my $ofkey(sort keys %OS_FOLDERS) {
            printf "  %-20s %-80s\n",$ofkey,$OS_FOLDERS{$ofkey};
        }
    }