>perl -e "my %f=(chr=>sub{chr(shift)});  print $f{$ARGV[0]}->($ARGV[1])" chr 35
#
>perl -e "my %f=(chr=>sub{chr(shift)});  print $f{$ARGV[0]}->($ARGV[1])" chr 36
$