Select Code to Download

use warnings;
use strict;
...
print $event->status == -1 ? "Event stopped\n" : "Event running\n";

print "$data\n";

{"charge": 85}
Main program continues...
Background event still running...
Event stopped
{"charge": 100}