Select Code to Download

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

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

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

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

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

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