#!/usr/bin/perl 
#use warnings
#use strict;
#my@input =  qw (0 1 0&&1 0||1 45 45-45  45/45 45==45 $a=45 45<=>45 );
#print @input;
#foreach (@input) {
#	if ($_) {
#		print "$_ is true\n"
#		}
#	else {
#		print "$_ is false\n"
#		}
#	}  did not work - left it as a string, how to force evaluation? 
my $a;

if (0) {
		print "0 is true\n"
		}
	else {
		print "0 is false\n"
		};	
		
if (1) {
		print "1 is true\n"
		}
	else {
		print "1 is false\n"
		};	

if (0&&1) {
		print '0&&1 is true'."\n"
		}
	else {
		print '0&&1 is false'."\n"
		};
		
		
if (0||1 ) {
		print '0||1  is true'."\n"
		}
	else {
		print '0||1  is false'."\n"
		};
		
if (45) {
		print '45 is true'."\n"
		}
	else {
		print '45 is false'."\n"
		};
		
if (45-45) {
		print '45-45 is true'."\n"
		}
	else {
		print '45-45 is false'."\n"
		};
		
if (45==45 ) {
		print '45==45  is true'."\n"
		}
	else {
		print '45==45  is false'."\n"
		};
		
if ($a=45) {
		print '$a=45 is true'."\n"
		}
	else {
		print '$a=45 is false'."\n"
		};
		
if (45 <=> 45 ) {
		print '45 <=> 45  is true'."\n"
		}
	else {
		print '45 <=> 45  is false'."\n"
		};
		
$a=	(48 <=> 45 );			
if (48 <=> 45 ) {
		print '48 <=> 45  is true'."     values is $a\n"
		}
	else {
		print '48 <=> 45  is false'."     values is $a\n"
		};

$a=	(40 <=> 45 );	
if (40 <=> 45 ) {
		print '40 <=> 45  is true'."   value is $a\n"
		}
	else {
		print '40 <=> 45  is false'."   value is $a\n"
		};