#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
my %p;
while (<>) {
    if (/Unpacking (\S+)/)  { $p{$1}++; next; }
    if (/Setting up (\S+)/) { $p{$1}--; next; }
    last if /locale: Cannot set LC_ALL to default locale/;
}
for ( sort keys %p ) { print "$_\n" if $p{$_}; }
