if (! defined $in) {
    print "Usage: $0 <filename>\n";
    exit(1);
}