print getMessage ( 'StartBE', $ip, $port ), "\n";

sub getMessage 
{
    my ( $msgCode, $ip, $port) = @_;
    return pack "A10 i A*", $msgCode, $port, $ip;
}