#!/usr/bin/perl -w 
use strict;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS )

	my $zip = Archive::Zip->new();
	foreach(@_){
		next unless($_ =~ m/(zip)$/);
		print "$_\n";
		die "Error reading zip file" if $zip->read($_) != AZ_OK;
		my @members = $zip->members();
		$zip->extractMember("bootuplog.txt");
		foreach my $element(@members){
                      	$zip->extractMember($element->{fileName});
}
	}
		print "Done extracting files";
	}
	
	

}