use Archive::Extract;

my $zipdata = Archive::Extract->new(archive => '/LOG/',[type => TYPE]);
my $ok = $zipdata->extract( [to => '/LOG/'] || die $zipdata->error;