my $msg = pack("a".$maxMsgCodeLength."ia*",$msgCode, $port, $ip);

##</code><code>##

  $msgCode = $msgCode.(" " x ($maxMsgCodeLength-length($msgCode)));

##</code><code>##

my $msg = pack( "a10ia*", $msgCode, $port, $ip );

##</code><code>##

my $msg = pack( "a20 i a*", $msgCode, $port, $ip );

##</code><code>##

printf( "%s %d %s", $msgCode, $port, $ip );

##</code><code>##

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

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