check_count () {
        head=
        case "$1" in -h) head="$2"; shift; shift ;; esac
-       $PROG file $head | perl -e '
+       echo "$PROG file $head" >&4
+       $PROG file $head >.result || return 1
+       cat .result | perl -e '
                my %expect = (@ARGV);
                my %count = ();
                while (<STDIN>) {