{
      system("tar", "zxvf", $ARGV[0] . "/$list[$d]") == 0
           or print STDERR "Error running tar zxvf on $list[$d]";
      $i++;
 }