Encoding ASCII with Perl 

say ord('A');                       # 65