Tengo la siguiente validación en una secuencia de comandos CGI que buscará el método GET y devolverá un código de estado HTTP 405 si no se usa el método GET. Desafortunadamente, todavía está devolviendo un estado 200 OK cuando se usa POST o PUT.

my ($buffer);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
    $buffer = $ENV{'QUERY_STRING'};
}
else
{
    $cgi->$header->status('405 Method Not Allowed')
    print $cgi->header('text/plain');
}

Todavía soy nuevo en la programación de CGI, así que me imaginé que alguien aquí me podría contar acerca de cómo trabajar con CGI y las devoluciones de estado HTTP. Si se proporciona un buen documento CGI que sería impresionante, ya que la mayoría de los resultados de búsqueda son CPAN (ya leído algunas veces) y tutoriales realmente antiguos que no están orientados a objetos.