String Perl

print chr(ord "A");