String Perl

print ord 'A';