#!/usr/bin/perl -w

use strict;

my $num = 123;
my $str = 5;

if ($num gt $str) {
	print "$num gt $str\n";
} else {
	print "$num le $str\n";
}

if ($num > $str) {
	print "$num > $str\n";
} else {
	print "$num <= $str\n";
}