#!/usr/local/bin/perl

while ($inputline = <>) {
       print ($inputline);
}
