#2 Can't create daemon within hl7d?

[Ed Murphy]

I tried running hl7d.pl. Out the box (meaning, just
installed) I tried

perl hl7d.pl

and get the following message

"-T" is on the #! line, it must also be used on the
command line at hl7d.pl line
1.

so I add the -T like so

perl -T hl7d.pl

and then I get the following:

Name "Net::HL7::COMPONENT_SEPARATOR" used only once:
possible typo at hl7d.pl li
ne 399.
Use of uninitialized value in numeric gt (>) at hl7d.pl
line 638, <PCFG> line 3.

Use of uninitialized value in numeric gt (>) at hl7d.pl
line 638, <PCFG> line 6.

Use of uninitialized value in numeric gt (>) at hl7d.pl
line 638, <PCFG> line 16
.
Use of uninitialized value in numeric gt (>) at hl7d.pl
line 638, <PCFG> line 17
.
Couldn't create daemon at hl7d.pl line 194.

Which after looking into it was most likely due to the
-w switch that is included, so no really big problem
there and just to try something new, I removed the -w
which leaves me with this error...

Couldn't create daemon at hl7d.pl line 195.

I looked over the line 195 and it is the line after
this command

my $server = new Net::HL7::Daemon
(
LocalPort => $cfg{PORT},
Listen => $cfg{LISTEN}
);

Which basically says that the server isn't being
created. Interestingly enough, when I replace
$cfg{PORT} with a number like so

my $server = new Net::HL7::Daemon
(
LocalPort => 2500,
Listen => $cfg{LISTEN}
);

It works without a problem. Should be simple to find,
but it *looks* to me like the cfg array is being built
correctly. I've hardcoded it for now, but it's kind of
strange.

Cheers,
Ed