searching helps!

Yes googling goes a long way. You could use Archive::Extract if your aim is to only extract files. You code would look like this:

    use Archive::Extract;

    ### build an Archive::Extract object ###
    my $ae = Archive::Extract->new( archive => 'foo.tgz' );

    ### extract to /tmp directory ###
    my $ok = $ae->extract( to => '/tmp' ) 
             or die $ae->error;

    ### get files from the archive ###
    my $files   = $ae->files;
[download]

If you're doing more than just extraction then look at Archive::Zip

#!/usr/bin/perl

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

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