#/!usr/bin/perl
use warnings;
print "\t\nTabella ascii by emdel\n\n";
printf "Inserisci una lettere o un numero di cui vuoi sapere il valore ascii : \n";
$input = <STDIN>;
print "Il valore ascii di $input è " , ord("$input"), "\n";