Usage: ./exer_9_2 filename at ./exer_9_2 line 7.

##</code><code>##

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