Select Code to Download

my $tar_obj = Archive::Tar->new;
$tar_obj->read( "my.tar")

# or just: my $tar_obj = Archive::Tar->new( "my.tar" );

use Archive::Tar;

...
    my $filedata = $tar->get_content( $filename );
    # do other stuff...
}

use Archive::Tar;

...
    my $data = $file->get_content;  # same as above, but no searching 
+involved
    # do other stuff...
}

my %cksums;

...
      $cksum{$file->cksum} = undef; # keep track of cksums
   }
}