#!/usr/bin/perl -w
while (<>) {
    print;
}