api.pl?S emits JSON #2

Use JSON::XS. Return a JSON object with status, progress, what and list.