my $k;
         if (defined($dir))
          {
            $back_one = $1 if $dir =~/(.*)\/.*$/;