+# dump some useful data structures
+
+sub tab_dump {
+ my ( $name, $hash ) = @_;
+ warn "# $name\n";
+ foreach my $key ( sort keys %$hash ) {
+ warn $key, "\t$hostname\t", $hash->{$key}, "\n";
+ }
+}
+
+tab_dump 'mac_to_name', $mac_to_name;
+warn Dumper( $mac_to_name );
+tab_dump 'instance_tap', $instance_tap;
+warn Dumper( $instance_tap );
+
+goto next_node if @nodes;
+
+
+warn "# stat ", Dumper( $stat ) if $DEBUG;
+
+
+# dump tablable ascii output
+