sub build_num_comp {
   my $truth = eval "@_";
   die "Invalid comparison, use ax -h for help.\n" if $@;
   return sub { $truth };
}

print build_num_comp(5,'==',5)->() ? 'yes' : 'no';
print build_num_comp(5,'!=',5)->() ? 'yes' : 'no';