my $filename=lc('NaMeoFfiLe.txt');