my $x = 1; don't { print "Something\n" } unless $x;