use CORBA::MICO;

my $orb = CORBA::ORB_init("mico-local-orb");

# Initialize CORBA and the Portable Object Adapter
my $poa = $orb->resolve_initial_references("RootPOA");
$poa->_get_the_POAManager->activate();

# Create a MyNmsSession object and register it with CORBA
my $myNmsSession = new MyNmsSession;
my $objNms       = $poa->servant_to_reference($myNmsSession);

... rest of the app ...


package MyNmsSession;

@MyNmsSession::ISA = qw(POA_nmsSession::NmsSession_I);
  
sub new {
  my $self = bless {};
}

sub associatedSession {}
sub endSession {}
sub ping {}
sub eventLossOccurred {}
sub eventLossCleared {}