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

        ### extract to cwd() ###
        my $ok = $ae->extract;

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

        ### what if something went wrong?
        my $ok = $ae->extract or die $ae->error;
...