package Communications;

sub SendMessage {
    my $msg = join("", @_);
    foreach my $cpack (@main::plugpack) {
        if (defined eval "${cpack}::ReceiveMessage") {
            eval "\&${cpack}::ReceiveMessage('$msg')";
        }
    }
}

sub ReceiveMessage {
    print "Communications::ReceiveMessage('$_[0]')\n";
}

##</code><code>##

Use of uninitialized value in concatenation (.) or string at D:\device\modem\internet\Xitami\cgi-bin\index.pl line 48.
Communications::ReceiveMessage('')
Communications::ReceiveMessage('Hello, World!')