#! c:\perl\bin\perl.exe
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use strict;
my ($zipfl, $zippath);

print "Enter the name of the zip file: \n";
chomp ($zipfl = <stdin>);
print "Enter the absolute path where the contents are to be blown up!: \n";
chomp ($zippath = <stdin>);			
extract_tree("$zipfl","$zippath");	

sub extract_tree($$)
{
	my $source=shift;
	my $target=shift;
	chomp ($target);
	my $zip = Archive::Zip->new();
	$zip->read("$source");
   	$zip->extractTree( "", "$target" );
}