#!/usr/bin/perl -w
use strict;
use File::Basename;

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