my $nl = new Verilog::Netlist(keep_comments=>1);

...

$pt->net->comment();