#!/usr/bin/perl

while( $line = <> )
{
   print "$line"
}