Help for this page

Select Code to Download

Select or download this

my %perlop = (
   le => '<=',
...
);

my $r = eval "$a $perlop{$op} $b";