my $orr || print "or\n";
my $andd && print "and\n";