#!/exlibris/metalib/m4_b/product/bin/perl
use demo;
{
    my $externalObject = new demo;
}

##</code><code>##

package demo;
require "wrapper";
use demo2;
sub new {
        my $class  = shift;
        my $params = shift;
        my $self = {};
        &call_httpd_exec();
        my $externalObject2 = new demo2;
}

##</code><code>##

package demo2;
require "wrapper";
sub new {
        my $class  = shift;
        my $params = shift;
        my $self = {};
        &call_httpd_exec();
}

##</code><code>##

sub call_httpd_exec{
    print "hello world!!\n"
}

1;

##</code><code>##

Undefined subroutine &demo::call_httpd_exec called at demo.pm line 8.