#!/usr/bin/perl -w

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

my $files;
my @filename;
my $newname;


opendir(DIR, "H:/pmi_daten/pmi/aix0021a");
    
    for $files (grep {/.bz2/} readdir DIR){

            push(@filename, $files);
        }
my $x=0;


foreach(@filename){
    
    $files = "bzip2 -d H:/pmi_daten/pmi/aix0021a/" . "$_";
    
    system($files);
}