String Perl

$s = 65;
print "The character " . chr($s) . " corresponds to ASCII code $s";