#!/usr/bin/perl 
use v5.24;
use warnings;

open my $tsfh, '>', "graph_free.tsv";
for my $fn (glob("/var/log/simba/ca.*")) {
    my $fh;
    if ($fn =~ /\.gz$/) {
        open($fh, '-|', "zcat", $fn);
    } else {
        open ($fh, '<', $fn);
    }
    while (<$fh>) {
        if (m{(....-..-..T..:..:..[-+]....) .*: found base /backup/(.*) \(est. (\d+) bytes\)}) {
            say $tsfh "$1\t$2\t$3"
        }
    }
}
close $tsfh;

open STDOUT, '>', "graph_free.png";
system "tsplotv", "--style", "points", "--legend-position", "below", "--yrange", "0:*", "graph_free.tsv";