open(IO,"< $file") or die "cannot open $file for input: $!\n";