close(MYFILE) or die "c:/perl/test: $!";