#!/usr/bin/perl

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

unzip("somezip.zip,", "/path/to/targetdirectory");