#!/usr/bin/perl
######################################################################
# Read file one line at a time, print one line at a time
######################################################################

while($line = <STDIN>) {                # read the next line
    print STDOUT $line;                 # write the next line 
}