sub test1 : Local
{
	my ( $self, $c ) = @_;
	my $konf = ECS::Inkasso::Konfig->new();
	
	my $bin = $konf->{location}->{bin};
	my $pro = $konf->{location}->{progress};

	print STDERR ">>P start\n";
	my($chld_out, $chld_in);
	open2($chld_out, $chld_in, "perl", "$bin/x2.pl", "$pro/foo.txt");
	print STDERR ">>P end\n";
	
	$c->res->redirect( $c->req->base."/forderung/importieren/progress_bar" );
}

##</code><code>##

#x2.pl
for ( 0.. 10 )
{
	open $out, ">$ARGV[0]";
	print $out "$_\n";
	close $out;
	sleep(1);
}

##</code><code>##

>>P start
>>P end
[info] *** Request 1 (0.025/s) [4040] [Thu Aug  2 08:13:30 2007] ***
[debug] "GET" request for "forderung/importieren/test1" from "127.0.0.1"
[debug] Path is "forderung/importieren/test1"
[debug] Redirecting to "http://localhost:3000//forderung/importieren/progress_bar"
[info] Request took 0.208057s (4.806/s)
.----------------------------------------------------------------+-----------.
| Action                                                         | Time      |
+----------------------------------------------------------------+-----------+
| /begin                                                         | 0.072754s |
| /auto                                                          | 0.000065s |
| /forderung/importieren/test1                                   | 0.000891s |
'----------------------------------------------------------------+-----------'