open (THEFILE, $theFile) || die "open $theFile $!\n";