Descompress-perl

#!/usr/bin/env perl

# Descomprime zip
# Por () GNU
# Eres libre de modificar,compartir,estudiar y evolucionar el script

use feature qw{ switch };
use strict;

my $directorio = `pwd`;

print "zip's de directorio $directorio \n";

my @zip = `ls *zip`;

if ($#zip > 0) {
foreach my $i(0...$#zip) {
    print "$i : $zip[$i]";
}

print "Cual archivo quieres comprimir: ";

while (my $eleccion = <STDIN>) {
    chop($eleccion);
    given ($eleccion) {
        when(/^\d/) {
            if ($eleccion <= $#zip) {
                &des($zip[$eleccion]);
                last;
            } else {
                print "Rango incorecto,solo hay 0 a $#zip opciones: ";
                continue;
              }
            }
        when(/^\D/) {
            print "Cual archivo quieres conprimir (numeros): ";
            continue; }
        default { continue; }
        }
} }

else { print "No hay zip's en $directorio\n"; }

sub des {

my $descomprimir = shift;

system("unzip $descomprimir");

}