#!/usr/bin/perl ###################################################################### # Read file one line at a time, print one line at a time ###################################################################### while($line = ) { # read the next line print STDOUT $line; # write the next line }