if ($method ne "GET") {
    if ($method ne "POST") {
        msg(400);
    }
}

##</code><code>##

if ($method ne "GET" && $method ne "POST")
{
    msg(400);
}

##</code><code>##

open(FILE1, $ARGV[0]);
@lines = <FILE1>;