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

open(FILE, "Text1.txt");
while(<FILE>){
    print "I saw the following in Text.txt file:\n$_\n";
}
close FILE;