#!perl
use strict;
my @test = ('10>5','10<5','13+2==14+1','4>(6/2)+1');
for my $var (@test){
  my $result = eval $var ? 'True' : 'False';
  die $@ if $@; # check for errors in eval
  print "$var is $result\n";
}