open$f,<>;print for<$f>