@ARGV == 1 or die "usage: $0 inputfile\n";