tarstat.pl

#!/usr/bin/perl
my @archiveList = `tarsnap --list-archives`;
my $archiveString = "";
while (@archiveList)
{
    $archiveString .= " -f " .shift(@archiveList);
    chomp($archiveString);
}
print(`tarsnap --print-stats --humanize-numbers $archiveString`);