calling a sub from an if statement

Select or download this

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

Select or download this

%msgs = ("200", "OK", 
         "400", "Bad Request",
         "403", "Forbidden", 
         "404", "Not Found", 
         "500", "Internal Server Error");

Select or download this

&msg(400);

Select or download this

HTTP/1.0 400 Bad Request

Select or download this

if ($proto ne "HTTP/1.0") { 
    &msg(400); 
}

Select or download this

HTTP/1.0 400

Select Code to Download