sub msg {
           $msg_num = @_[0];
# ...