# work-around for mod_perl
my $tie_stdin = tied *STDIN;
untie *STDIN if $tie_stdin;

# insert open2() or open3() statement after the above