#!/usr/bin/env perl
use utf8;
use strict;
use warnings;

MAIN:
{
	my $a = 1;
	my $b = 0;

	print "a AND b : ", ($a && $b), "\n";
	print "a OR b : ", ($a || $b), "\n";
	print "NOT a : ", (!$a), "\n";
	print "NOT b : ", (!$b), "\n";
}