Redirecting STDIN / Logging CGI App

[crenz]

Fellow monks,

I need to debug a badly written "everything-in-one-script" kind of CGI application. For that, I need to log all the input and output. I already managed to log the output by inserting something like this at the top of the application:

BEGIN {
    my $tee = new IO::Tee(\*STDOUT, ">logfile");
    select($tee);
}

I'd like to do something similar with STDIN. IO::Tee can also handle reading, but I don't know how to "replace" the current STDIN with $tee_in. I am probably looking for something like *STDIN = $tee (which of course won't work).

[dragonchild]

If this is a script that is executed whenever a request comes in (i.e., no mod_perl or other persistent framework), you could do something like:
1. Slurp STDIN into a scalar in a BEGIN block.
2. Log the scalar.
3. Use IO::Scalar to treat the scalar like a filehandle.
4. Reassign STDIN to the scalar-filehandle.

As for reassigning, you may be looking for something like open( STDIN, '<<', $scalar ); I'm grabbing this from p.442 of the Camel 3rd edition section on Interprocess Communication.