May be you want to take a look at the following pragma: http://perldoc.perl.org/if.html.