#!/usr/bin/perl
my(@f)=();
# compute the character histograms of the input files
while (<>) { for (split "") {$f[ord]++} }
# display non-occurring characters
for (my($i)=0; $i<256; $i++) { printf "0x%02x\n", $i if(!$f[$i]) }
