system ('C:\Program Files\7-Zip\7z.exe',' e ',$archive,' -r',$extdir,$file,' n n') or die $!;
         # maybe n n  should be \n\n ? 
         system ('C:\Program Files\7-Zip\7z.exe', ' e ', $archive,' -r ,$extdir,$file' , "\n\n\") or die $!;

##</code><code>##

my @files = glob qq($base\\Gridfee0?.7z\\Gridfee?\\invoic_b2c_$year$month$day*.txt);