if (! defined $in) {
    die "Usage: $0 filename\n";
}