#!/usr/bin/perl -w #open(IN, "input.txt"); open(OUT, ">out.txt"); while( ) { print $_; print OUT $_; } #close (IN); close (OUT);