open IN_FL, $input_FL or die "unable to open $input_FL:$!";