The easiest way that I know is Archive::Unzip::Burst.

#!/usr/bin/perl

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

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