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";
}