Select Code to Download

use Archive::Tar;

...
for my $file ( @files ) {
    $tar->extract_file( $file );  # this method works on A::T::F objec
+ts
}