#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
use Apache2::SubProcess ();

my $out;
my $r = shift;
my $command = "/bin/echo 123 > /tmp/test";

    print header;
    print "<p>";
    print "test";
    print "</p>";

    $out = $r->spawn_proc_prog($command);

    print end_html;