#!/usr/bin/perluse warnings;print"A # has ASCII value ", ord("#"),"\n";print "A * has ASCII value ", ord("*"),"\n";