Select Code to Download

  my $code;
  my $compartment = new Safe; 
...
    _sAbort( $r, "Restricted eval failed! Unable to compile format of 
+type $type:", $@ );
    return DONE;
  }

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

my $open_err;
my $data;
...
local $/ = undef;
$data = <OUTPUT>;
close(OUTPUT);