sub msg {
    $msg_num = @_[0];
    $msg_txt = "$msg_num $msgs{$msg_num}";
    print "HTTP/1.0 $msg_txt\n";
}