Как я могу извлечь один файл из ZIP-архива с помощью Perl's Archive :: Zip?

У меня есть zip-файл X, и я хочу извлечь один файл, расположенный в x / x / x / file.txt . Как это сделать с помощью Archive :: Zip и Perl?