eval {
	open FILE, $file;
}
die "$file did not open for reading" if $@;