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