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" );
}