use Archive::Zip;

my $zip=Archive::Zip->new('a.zip');
$zip->extractTree('E:\test\unzip\' );
$zip->extractMemberWithoutPaths("1.txt","1.txt") or die "Unable to extract $! \n