uname-yang

#!/usr/bin/perl -w
use strict;
my $num=ord 'E';
print "The ASCII is : $num\n";
my $word=chr(69);
print "The word is : $word\n";

#The ASCII is : 69
#The word is : E