open(DAT, $data_file);
my @raw_data = <DAT>;
foreach my $fileLine1 (@raw_data) {
chomp($fileLine1);
my @dir = split('\.caz',$fileLine1);
foreach my $newdir (@dir){
chomp($newdir);
mkdir $newdir;


my $newdir1 = "$dir\\$newdir";

opendir(DIR, $dir) or die "can't opendir $dir: $! \n";
@files=readdir(DIR); 
closedir DIR; 

my $oldfile="$dir\\$newdir.caz";

copy($oldfile, $newdir1) or die "File cannot be copied";
#my $final_dest= "C:\\Perl64\\bin\\extract\\$newdir";
#my $cmd1 = system("cmd /K cd /d $newdir1");
#my $cmd1= "cd C:\\Perl64\\bin\\extract\\$newdir";
my $cmd1= 'cd C:\Perl64\bin\extract\$newdir';
open (CMD, "|$cmd1") or die "fail1";
#chdir("C:\\Perl64\\bin\\extract\\$newdir\\");
#print $cmd1;
my $cmd = "cazipxp -u $newdir\.caz";
my %newfiles = open (CMD, "|$cmd") or die "fail";


}}