#!/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";
	}
	
	

}


##</code><code>##

2005 Dec-13 08-54.zip
Use of uninitialized value in concatenation (.) or string at C:/Perl/lib/File/Sp
ec/Win32.pm line 291.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 68.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 69.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 67.
Use of uninitialized value in concatenation (.) or string at C:/Perl/lib/File/Sp
ec/Win32.pm line 291.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 67.
Use of uninitialized value in concatenation (.) or string at C:/Perl/lib/File/Sp
ec/Win32.pm line 291.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 67.
Use of uninitialized value in concatenation (.) or string at C:/Perl/lib/File/Sp
ec/Win32.pm line 291.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in integer multiplication (*) at C:/Perl/lib/Time/Loc
al.pm line 76.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in pack at C:/Perl/lib/Time/Local.pm line 67.
Use of uninitialized value in integer addition (+) at C:/Perl/lib/Time/Local.pm
line 67.

##</code><code>##

 #!/usr/bin/perl
use warnings;