open ( FH0, '<./$file' ) or die "Unable to open $file: $!\n";