use Archive::Extract;

my $ae = Archive::Extract->new( archive => 'example.zip' );
my $ok = $ae->extract;