mp1 to mp2: server info in startup.pl

[Ted]

Hi,

I am trying to get server information (e.g. port) from within the 
startup.pl script.

In mp2 I am doing this:
-----------------------
use Apache2::ServerRec ();
use Apache2::ServerUtil ();
my $s = Apache2::ServerUtil->server();
warn "port = ",$s->port(),"\n";

output is:
port = 0


In mp1 I am doing this:
-----------------------
use Apache::Server;
my $s = Apache->server;
warn "port = ",$s->port(),"\n";

output is:
port = 80

What am I doing wrong in mp2?

Thanks,
Ted