See perldoc perlrun about -S option
It is exactly what you are looking for.

Note that ... if 0; in your code would not let that line to be executed.