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

##</code><code>##

...
print "$message1 \n" if( runtime cond);
...
print "$message2 \n" if( runtime cond);
...