jsnell

#!/usr/bin/perl -lw

use strict;
use List::Util qw(min max);
use JSON;

my %data = %{decode_json join '', <>};

print join ',', qw(connection time rtt-min rtt-max win-min win-max inflight-max payload type);

jsnell

#!/usr/bin/perl -lw

use strict;
use JSON;

my %data = ();

sub buckets {
    my $trophies = shift;
    my @buckets = 'all';