wki

#!/usr/bin/env perl
use Modern::Perl;

BEGIN {
    if (@ARGV != 2) {
        print STDERR "usage: $0 DIR OUTPUT\n";
        exit 1;
    }
}