sub metasearch {
    my $self = shift;
    my $db_ref = $self->db_defs;
    my @dbs = @{$self->dbs};
    my $logger = $self->logger;

    $SIG{CHLD} = 'IGNORE';
    my @result;
    foreach my $db (@dbs) {
        defined (my $kid = fork) or die "Cannot fork: $!\n";
        $logger->debug("Processing $db in process $kid");
        if ($kid) {
            $logger->debug("Parent $$ has finished, kid's PID: $kid");
        }
        else {
            # $r->cleanup_for_exec(); # untie the socket
            open STDIN, '/dev/null' or die "Can't read /dev/null: $!";
            open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!";
            open STDERR, '>/tmp/log' or die  "Can't write to /tmp/log: $!";
            # setsid or die "Can't start a new session: $!";
            my $oldfh = select STDERR; local $| = 1; select $oldfh;
            warn "started\n";
            sleep 1, warn "$_\n" for 1..20;
            warn "completed\n";
            push @result, "simulate result for $db in $kid";
            CORE::exit(0); # terminate the process
        }
        $logger->debug("End of $db");
    }
    $logger->debug(join(', ', @result));
}