my $safe_uploads_directory = '/tmp/uploads'; use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); my $zip = Archive::Zip->new( $valid_zip ); chdir( $safe_uploads_directory ) && $zip->extractTree();