use Archive::Extract;

my $zipdata = Archive::Extract->new(archive => '/LOG/DATEI.zip');
my $ok = $zipdata->extract( to => '/LOG') || die $zipdata->error;