open my $in, "< Text.txt" or die $!;
while (<$in>){print}