my $file="T:\\temp\\temp.txt";