Perl解压zip

use Archive::Zip;

my $obj = Archive::Zip->new();
$status = $obj->read($fileFrom);
if ($status != AZ_OK) {
	print "=====程序终止！=====\n解压失败\n";	
	#保留黑框
	system pause;
	#程序停止运行
	die;
} else {
	$obj->extractTree(undef, $fileTo);
}

---