#!/usr/bin/perl
sub basedir {
        my $dir;
        my $dirArr;
        my $rtn;

        my $dir = shift;
        @dirArr = split(/\//,$dir);
        pop @dirArr;
        for ($x=0; $x < @dirArr; $x++) {
                if ($dirArr[$x]) {
                        $rtn .= "/".@dirArr[$x];
                }
        }
        return $rtn;
}
print "\n";
print "\n";
print basedir($0);
print "\n";
print basedir($0);
print "\n";