my $filename = 'C:\Perl\example.txt';