if ($comment or $test) {
    $a = 3;
    print "--> $a\n";
} else {
    print "no way!\n";
}