elsif (exists $directories{$cmd} )
  {
    my $dirs=$directories{$cmd};
    if ( -d $dirs )
    {
    print "$dirs\n";
    }
  }