#!/usr/bin/perl

  use strict;
  use warnings;
  use diagnostics;

  my $test = 'echo hola;';
  my $out;

  use IO::Select;
  use Apache2::RequestUtil ();
  use Apache2::SubProcess ();
  use Config;
  use constant PERLIO_IS_ENABLED => $Config{useperlio};
  my $r = Apache2::RequestUtil->request();

  my @command = ( '/bin/sh' );

  my ($writer, $reader, $error) = $r->spawn_proc_prog(@command);
  print $writer $test;
  close $writer;
  binmode ($reader);
  my $buffer;  
  if (PERLIO_IS_ENABLED || IO::Select->new($reader)->can_read(10)) {
    while ( read($reader, $buffer, 8192) ) {
      $out .= $buffer;
    }
    
  }
  close $reader;
  
  print "Content-type: text/html\n\n";
  print $out;