Select Code to Download

#!/usr/bin/env perl

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

#!/usr/bin/env perl

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

exit;