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

MAIN:
{
	my $a = 3;
	my $b = 5;
	my $c = 3.1415926;
	my $d = 4.0;
	my $e = "apple";
	my $f = "pear";

	print "a < b : ", ($a < $b), "\n";
	print "a <= b : ", ($a <= $b), "\n";
	print "a > b : ", ($a > $b), "\n";
	print "a >= b : ", ($a >= $b), "\n";
	print "a == b : ", ($a == $b), "\n";
	print "a != b : ", ($a != $b), "\n";

	print "c < d : ", ($c < $d), "\n";
	print "c <= d : ", ($c <= $d), "\n";
	print "c > d : ", ($c > $d), "\n";
	print "c >= d : ", ($c >= $d), "\n";
	print "c == d : ", ($c == $d), "\n";
	print "c != d : ", ($c != $d), "\n";

	print "e < f : ", ($e lt $f), "\n";
	print "e <= f : ", ($e le $f), "\n";
	print "e > f : ", ($e gt $f), "\n";
	print "e >= f : ", ($e ge $f), "\n";
	print "e == f : ", ($e eq $f), "\n";
	print "e != f : ", ($e ne $f), "\n";
}