Error al usar switch y given

[neodani]

Buenas,

Cuando intento usar el siguente script me da error, sabéis como puedo solucionarlo?

Can't locate feature.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./perl_first_webstats.sh line 68.
BEGIN failed--compilation aborted at ./perl_first_webstats.sh line 68.

Código PERL:

sub Crear_Nuevas_Stats {
    print colored(" - Selecciona el hosting donde apunta la web: ('q' para salir)",'cyan'),"\n";
    print "\t1) HosAPA01\n";
    print "\t2) HosAPA02\n";
    print "\t3) HosIIS01\n";
    print "\t4) HosIIS02\n";
    print "\t5) HosIIS03\n";
 
    chop ($host = <STDIN>);
    print $host;
    #use feature 'say'; say 'which?'
    use feature qw(switch say);
    given ($host) {
        when ('1') {
            say "Seleccionaste HOSAPA01\n";
        }
        when ('2') {
            say "Seleccionaste HOSAPA02\n";
        }
    }
}
 

Lo probé de dos formas distintas
use feature 'say'; say 'which?'
use feature qw(switch say);

¿Me falta algun modulo?

Muchas gracias de antemano!