sub dbservice { my $base = 'kb'; return $base . '_test' if $ENV{HARNESS_ACTIVE}; my $bin = $0; $bin =~ s{^.+/(.+)?}{$1}; $bin =~ s{(\.+)$}{}; return $base . '_' . $bin; }