DB<1> $number1 = 2011;

  DB<2> $number2 = 2011;

  DB<3> $selectioncriterium = '=='

  DB<4> print "number1 is ", eval "$number1  $selectioncriterium  $number2" ? "" : "not ", "equal to $number2\n";
number1 is equal to 2011

  DB<5> print "number1 is ", eval "$number1  $selectioncriterium  7842"?  "" : "not ", "equal to  7842\n";
number1 is not equal to  7842