my $status = "false";

do_eval( "status", "eq", "false" );
do_eval( "status", "eq", "true" );

sub do_eval {
  my ($var, $op, $val) = @_;

  print "\$$var $op \"$val\": ";

  eval "if(\$$var $op \"$val\") {print 'Equal';} else{print 'Not';}";

  print "\n";
}