#!/usr/bin/perl -w

use CORBA::ORBit idl => [ qw(test.idl) ];
use strict;

package main;

my $orb = CORBA::ORB_init('test');
my $poa = $orb->resolve_initial_references('RootPOA');
open(IOR, './test.ior');
my $factory = $orb->string_to_object(<IOR>);
close(IOR);
$poa->_get_the_POAManager->activate;

$factory->keepalive;
$factory->foobar; # Exception: CORBA::MARSHAL
