#!/usr/bin/perl 

foreach (<>){
    print "$_";
}