#!/usr/bin/perl

use strict;
use warnings;

print 'A';        # Prints 'A'

print chr(65);    # Prints 'A'

my $c = 65;
print chr($c);    # Prints 'A'

$_ = 65;
print chr;        # Prints 'A'