Select Code to Download

sub new {
  $Census++;
...
  bless ($self, $class);
  return $self;
}

$VAR3 = bless( {
                 'INTERFACE' => [
...
                                     ]
                                   ]
               }, 'NT::FW' );