use Archive::Zip;

my $zip = Archive::Zip->new('test.zip');

# extrahiere Archiv in aktuelles Verzeichnis
$zip->extractTree();