Select Code to Download

use strict;
use warnings;
...
  {"total":1},
  {"total":2}
]

$ perl foo.pl

ok 1 - Revenue is 123. Mwahahahaa!
1..1