#!/usr/bin/env perl my @btstat = `btcli stat - i`; my @btlist = `btcli list`; my $data = { } ; foreach my [...]