Select Code to Download

use strict;
use Graph::Undirected;
...
}
$Data::Dumper::Indent = 1;
print Data::Dumper->Dump([\$g], [qw(*g)]);