numeros-perl

#!/usr/bin/env perl

print "Escribe un numero de 0/4 : ";

my $n = <STDIN>;

if ( $n == 0 ){

print "Es cero\n";

} elsif ( $n == 1 ) {

print "Es uno \n";

} elsif ( $n == 2 ) {

print "Es dos \n";

} elsif ( $n == 3 ) {

print "Es tres\n";

} elsif ( $n == 4 ) {

print "Es cuatro\n";

} else {

print "Entre 1 y 4\n";

}