#!/usr/bin/env perl

use strict;
use warnings;

use Archive::Extract;
my $ae = Archive::Extract->new( archive => 'myfile.tgz' );
my $ok = $ae->extract or die $ae->error;