descompactar .zip - algum script??????

preciso de um script que SÓ descompacta tal arquivo .ZIP (somente .zip) em PERL
preciso desse pequeno minusculo script para colocar no CRON.... sei que uma linha de comando resolve mais preciso de um script que faça isso... alguem pode me ajudar???????????????????????????

Olha esse exemplo bem básico:

#!/usr/bin/perl

use strict;

use warnings;

use IO::Uncompress::Unzip qw/unzip $UnzipError/;



my ($arquivo_zip, $output);



foreach $arquivo_zip (@ARGV) {

	$output = $arquivo_zip;

	$output =~ s/.zip//;

	unzip $arquivo_zip => $output || die($UnzipError);

} 

Uso: nome_do_script arquivo1.zip arquivo2.zip arquivoN.zip

Beleza, funcionou! mais agora eu quero salvar em outro diretorio em minha maquina, como faço???

Veja assim:

#!/usr/bin/perl -s

use IO::Uncompress::Unzip qw/unzip $UnzipError/;



die('Informe o diretorio de destino') unless($dst);



foreach $arquivo_zip (@ARGV) {

   $output = $arquivo_zip;

   $output =~ s/.zip//;

   unzip $arquivo_zip => $dst . $output || die($UnzipError);

} 

Uso: nome_do_script -dst='/destino/dos/arquivos/' arquivo1.zip arquivo2.zip arquivoN.zip