open( IN1, $inf1 ) or die "Can't open $inf1: $!";