sub X() { 0 } print "$message1 \n" if( runtime cond);