open( IN, $filename ) or die "$filename: $!";
while (<IN>) {