$ perl -E'
    use subs qw( chr );
    sub chr(_) {
       my $ch = CORE::chr($_[0]);
       $ch lt "\xFF"
           or die;
       return $ch;
    }
    say chr for 65, 4096;
'
A
Died at -e line 5.