You are setting the server's hostname to '<IP>'. Is that what you intended?

sub dbiConnect {
    my $server = '<IP>';
    my $port   = reservedDBPort($server);
[download]