my $flag = 0;

print "\$flag is set\n" if $flag;