#!/usr/bin/env perl
use utf8;
###############################################################################
# This program demonstrates string comparisons.
# 
# Copyright © 2020 Richard Lesh.  All rights reserved.
###############################################################################

use strict;
use warnings;

MAIN:
{
	binmode(STDOUT, ":utf8");
	binmode(STDERR, ":utf8");
	binmode(STDIN, ":utf8");
	my $color1 = "Blue";
	my $color2 = "Red";
	my $result;

	print "compare(color1, color2): ", $color1 cmp $color2, "\n";
	$result = $color1 lt $color2;
	print "color1 < color2: ", $result, "\n";
	$result = $color1 gt $color2;
	print "color1 > color2: ", $result, "\n";
	$result = $color1 eq $color2;
	print "color1 == color2: ", $result, "\n";
	$result = $color1 ne $color2;
	print "color1 != color2: ", $result, "\n";
}