open (IN,"<",$file) || die "Unable to open file '$file':  $!\n";