#!/usr/bin/env perl

use strict;
use warnings;

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

try{
    $ok = $ae->extract;
} catch {
    print "Caught!\n\n";
    die $ae->error; 
};

print "This ran after try/catch!\n";

exit;