#!/usr/bin/perl
sub basedir {
        my $dir = shift;
        @var = split(/\//,$dir);
        pop @var;
        for ($x=0; $x < @var; $x++) { 
                if ($var[$x]) {
                        $bla .= "/".@var[$x];
                }
        }
        return $bla;
}
print "\n";
print basedir("/root/a/b/a.pl");
print "\n";
print basedir($0);
print "\n";