open my $FILE, "<", "Text2.txt" or die; print while <$FILE>;