#!/usr/bin/perl -w
#################################################################################
## Author:      BRIAN HUNTER
## Date:        8/10/2020
## Email:       brian@sutechy.com
#################################################################################
use strict;
use File::Basename;

my $basename=basename("/usr/local/bin");
print "BASE = $basename\n";