my $ret = open(IN,"/tmp/file.txt");