Select Code to Download

    my ($do_search1, $do_search2);
    $do_search2 =  sub {
...
        $do_search1->($link->{_to}) unless ($explored->{$link->{_id}})
+;
      }
    };

BUILDING GRAPH
Neighbors
...
DESTROYING Node=HASH(0xa0920e8) 1
DESTROYING Node=HASH(0xa092124) 2
SHOULD BE THE LAST THING PRINTED, HOWEVER ...