open(SDATA,"$sdata")|| die("Could not open file: $!\n");