in reply to Re^5: verilog perl usage (Verilog::Netlist)
in thread verilog perl usage

It turns out to be very simple. :-) It looks as though you weren't printing the instance (cell) names. It did what I wanted when i changed the below line
print $indent, ' PinName=', $pin->name(), ' NetName=', $pin->netname()
to
print $indent, ' CellName=', $cell->name(), ' PinName=', $pin->name(), + ' NetName=', $pin->netname()
Thanks again