sub foo {
   my $x if 0;
   ...
}