use Archive::Tar;
my $tar_obj = Archive::Tar->new( "test.tar" );
my @files = $tar->get_files;