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

MAIN:
{
	my $a = 3;
	my $b = 5;

	print "a < b ? -1 : 1 => ", ($a < $b ? -1 : 1), "\n";
	print "b < a ? -1 : 1 => ", ($b < $a ? -1 : 1), "\n";
	print "a < b ? 'less' : 'greater' => ", ($a < $b ? "less" : "greater"), "\n";
	print "b < a ? 'less' : 'greater' => ", ($b < $a ? "less" : "greater"), "\n";
}