my $ae = Archive::Extract->new(archive => $filename);						
my $ok = $ae->extract(to => $dest_dir) or die $ae->error;