use strict;
use warnings;
my $var = 42;
if ($var) {
  machwas();
}