my $filename = "text.txt";
binmode($filename);