_RMBIN.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_RMBIN();}
1;
sub _RMBIN {
    my $binFile = $_[0];
    $binFile =~ s/-_-.*//g;
    $binFile = $UBIN . $SLASH . $binFile;
    if (-f $binFile) {
        my $xRmBin = $OS_TOOLS{"rm"} . " \"$binFile\"";
        my $xRmBinX = `$xRmBin`;
        print "  UBIN FILE REMOVED!\n";
    } else {
        print "  UBIN FILE NOT FOUND!\n";
        print "  $binFile\n";
    }