#!/usr/bin/perl
# Extracts just the base directory of a full path. e.g. /tmp/mydir becomes
# /tmp, tmp/mydir becomes tmp
die <<EOF unless $#ARGV == 0 && $ARGV[0] ne '--help';
usage: $0 <directory path>
EOF
my $dir = $ARGV[0];
my $leading_slash = "";
if ($dir =~ /^\//)
{
$leading_slash = "/";
$dir =~ s/^.//;
}
$dir =~ s/^(.*?)\/.*/$1/;
print $leading_slash.$dir;