GGI en Perl que vuelca todo a fichero

En entornos de desarrollo puede ser util tener un "agujero negro" que acepte todo y devuelva un HTTP 200 y que además lo escriba a un fichero local.

Ojito, que este tipo de cosa seria un agujero de seguridad enorme en cualquier entorno de internet o similar.

Este CGI hace justo eso:

#!/usr/bin/perl

open(OUT,">>/tmp/MIB.out");

print "Content-type: text/plain; charset=iso-8859-1\n\n";

local ($buffer);

$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else
{
    $buffer = $ENV{'QUERY_STRING'};
}

print OUT "BEGIN---------------------------------------------------------------------------\n";
print OUT "$buffer\n";
print OUT "END-----------------------------------------------------------------------------\n";
 
close(OUT);

1;