#!perl open 0;print for<0>;