sub new {
    my $ip_addr = shift();
   
    my $self = { DEVICE_IP => $ip_addr,
                 self_ip => undef,
                 partner_ip => undef,         
               };
    bless $self, 'MyPackage';
   
    $self->my_init();
    return($self);