Jemand

sub unzip {
    my $zip = Archive::Zip->new( $zipfile );
    my @filelist = $zip->memberNames;


    foreach $a (@ext) {
        my $filename;
            foreach $filename (@filelist) {
            my $xmlfile=$filename if $filename =~ /$a/;
            $zip->extractMember( $xmlfile, $tmp . $xmlfile ) if defined $xmlfile;
            }
        }
}