I know nothing about Mozilla::LDAP, but assuming that it accepts ( $host, $port ) for the Conn->new() subroutine, can't you just

    my $ldap_conn = new Mozilla::LDAP::Conn( split( /:/, $host ) );
[download]

Or am I missing something...