open ($in, "$in") or die("$in could not be opened:$!\n");