#!/usr/bin/perl

use strict;
use warnings;
use Archive::Unzip::Burst 'unzip';

unzip("zipfile.zip", "targetdirectory");