open (my $in,  "<",  "TEXT2.txt")  or die "Can't open input.txt: $!";
while (<$in>) {     # assigns each line in turn to $_
    print "$_";    # print contents of $_ line by line
}
close $in;