Yet Another CPAN Grep

BatchSystem-SBS ( A/AL/ALEXMASS/BatchSystem-SBS-0.41.tar.gz, ALEXMASS, 2008; MetaCPAN )

BatchSystem-SBS/cgi/cgiSBS-info.pl ( view source; MetaCPAN )

query=new CGI;

my $outputformat=$query->param('outputformat')||'text';
if($outputformat=~/^(text|json)$/){
  print $query->header(-type=>'text/plain');
}elsif($outputformat=~/^(xml)$/){
  print $quer

  my $h=$sbs->dataRequest(request=>join(',', @batchRequest));
  $htot{batchsystem}=$h;
}
if(lc($outputformat) eq 'json'){
  require JSON;
  print JSON::objToJson(\%htot,{pretty => 1, indent => 2});
}