#!\usr\bin perl
use warnings;
use strict;
use diagnostics;

open my $FILE, "<", "Text2.txt" or die; 
while (my $line = <$FILE>) {
    print $line;
}
close $FILE;