nathan@warthog:~/test2/extract$ ls
somefile.zip
nathan@warthog:~/test2/extract$ perl -e '
$filename = "somefile.zip";
$dest_dir = "/home/nathan/test2/extract";
use Archive::Zip;
my $zip = Archive::Zip->new();
local $Archive::Zip::UNICODE = 1;
unless ( $zip->read($filename) == AZ_OK ) {
die "Error Reading Zip File !";
}

foreach my $m ($zip->members()) { print "Member $m:\n  ";
  my $err = $zip->extractMemberWithoutPaths( $m, "$dest_dir/" . $m->fileName);
  print "Error: $err" if $err; print $/;
}'
Member Archive::Zip::ZipFileMember=HASH(0xdfdd30):
  
Member Archive::Zip::ZipFileMember=HASH(0xdfe2b8):
  
Member Archive::Zip::ZipFileMember=HASH(0xdfe5a0):
  
Member Archive::Zip::ZipFileMember=HASH(0xdfe888):
  
Member Archive::Zip::ZipFileMember=HASH(0xdfeb98):
  
Member Archive::Zip::ZipFileMember=HASH(0xdfee80):
  
nathan@warthog:~/test2/extract$ ls
한국어  somefile.zip  ગુજરાતી  ಕನ್ನಡ  বাংলা  中文  日本語
nathan@warthog:~/test2/extract$