#!/usr/bin/perl
use warnings;
use strict;

use Archive::Extract;

$Archive::Extract::DEBUG = 1;

my $ae = Archive::Extract->new( archive => 'VLF20160618.tgz' );
if ($ae->extract) {
    use Data::Dumper; Dumper($ae->files);

} else {
    warn "ERROR: " . $ae->error;
}
print "Still here\n";