open(FH,"<$file) or die "crap($file):$!";