open DATA, "<", $myfile or die "Could not open $myfile:$!\n";