perl-driver-1.0

    my $client = MongoDB->connect();
    my $coll = $client->ns("test.foo");

    # assume first operation fails due to network error
    eval {
        $coll->insert( $doc );
    };
    warn $@ if $@;

    # next operation automatically reconnects to MongoDB
    eval {
        $coll->insert( $doc );
    }