$| = 1; while (read(STDIN, $buf, 1)) { print $buf; }