$a= undef;
open ($a, "<file.txt");