+ $pod->callback(ZOOM::Event::CONNECT, \&connected);
+ my $err = $pod->wait($irspy);
+
+ return 0;
+}
+
+
+sub connected {
+ my($conn, $irspy, $rs, $event) = @_;
+
+ my $rec = $irspy->record($conn);
+ $irspy->log("irspy_test", $conn->option("host"), " connected");
+ ### Note the successful connection in $rec