#!/usr/bin/perl -w

while (defined($input = <>)) {
     print "$input";
}