Select Code to Download

my %dispatch = map {
    $_ => eval sprintf 'sub { $_[0] %s $_[1] }', $_
} qw/
...
    >
/;