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