# this program ALSO opens the file input.txt for reading
# then reads one line at a time from it and print those lines
# to STDOUT

open(INPUT,"input1.txt");
while(<INPUT>) {print $_;}
close(INPUT);