#!./perl# $Header: ord.t,v 4.0 91/03/20 01:53:50 lwall Locked $print "1..2\n";# compile time evaluationif (ord('A') == 65) {print "ok 1\n";} else {print "not ok 1\n";}# run time evaluation$x = 'ABC';if (ord($x) == 65) {print "ok 2\n";} else {print "not ok 2\n";}