#!/usr/bin/perl -X

use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

my $files;
my @filename;


opendir(DIR, "$path");
    
    for $files (grep {/.bz2/} readdir DIR){

            push(@filename, $files);
        }

****************************************
* HIER SOLLTE UMBENNENUNG STATTFINDEN  *
****************************************

my $dir = '$path';
my $zipfile = '$neurDateiname';

my $zip = Archive::Zip->new();
chdir $dir or die "Cannot chdir $dir:$!\n";
die "Error reading $zipfile:$!" unless $zip->read( "$dir/$zipfile" )
== AZ_OK;
$zip->extractTree();