sub new {
  $Census++;
  my $proto = shift;
  my $class = ref($proto) || $proto;
  my $self  = {};
  $self->{NAME}           = undef;
  $self->{DESCRIPTION}    = undef;
  $self->{INTERFACE}      = ([],[]);
  $self->{ROUTINGTABLE}   = ([],[]);
  $self->{SHAPEID}        = undef;
  $self->{MASTERSHAPE}    = undef;
  bless ($self, $class);
  return $self;
}

##</code><code>##

$VAR3 = bless( {
                 'INTERFACE' => [
                                  [
                                    'xxx.xxx.xxx.xxx',
                                    '255.255.255.0',
                                    'EMPTY',
                                    'xyz',
                                    'abc',
                                    'EMPTY'
                                  ],
                                  [
                                    'xxx.xxx.xxx.xxx',
                                    '255.255.255.0',
                                    'EMPTY',
                                    'fds',
                                    'wer',
                                    'EMPTY'
                                  ]
                                ],
                 'NAME' => 'myname',
                 'DESCRIPTION' => undef,
                 'ROUTINGTABLE' => [
                                     [
                                       'xxx.xxx.xxx.xxx',
                                       '255.255.255.255',
                                       'xxx.xxx.xxx.xxx',
                                       'gfd',
                                       'zxc',
                                       'DMZ'
                                     ],
                                     [
                                       'xxx.xxx.xxx.xxx',
                                       '255.255.255.255',
                                       'xxx.xxx.xxx.xxx',
                                       'gfr',
                                       'dbc',
                                       'DMZ'
                                     ]
                                   ]
               }, 'NT::FW' );