if( !open( FH, "<$file") ) {
	die "Cannot open $file :$!\n";
}