#!/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";


##</code><code>##

# Extracting with ->_untar_at
Unable to extract '/home/choroba/_/0/VLF20160618.tgz':  at /home/choroba/perl5/lib/perl5/Archive/Extract.pm line 954.
	Archive::Extract::_untar_at(Archive::Extract=HASH(0x163e5b8)) called at /home/choroba/perl5/lib/perl5/Archive/Extract.pm line 438
	Archive::Extract::extract(Archive::Extract=HASH(0x163e5b8)) called at ./1.pl line 10
 at ./1.pl line 10.
# Extraction method failed
# Extracting with ->_untar_bin
Running [/usr/bin/gzip -c -d -f /home/choroba/_/0/VLF20160618.tgz | /bin/tar -tf -]...
Running [/usr/bin/gzip -c -d -f /home/choroba/_/0/VLF20160618.tgz | /bin/tar -xf -]...
# Extraction succeeded
Still here


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,