my $code;
  my $compartment = new Safe; 
  $compartment->share('$href');
  $code = $compartment->reval($$file);
  if ($@) {
    _sAbort( $r, "Restricted eval failed! Unable to compile format of type $type:", $@ );
    return DONE;
  }

##</code><code>##

$r->send_http_header('text/html');
$code->($href);
return DONE;

##</code><code>##

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