my $open_err;
my $data;
open(OUTPUT, "$code->($href) |") or $open_err = $!; 
if ($open_err) {
	_sAbort($r,"Cannot open a pipe",$!);
	return DONE;
}
local $/ = undef;
$data = <OUTPUT>;
close(OUTPUT);