Select Code to Download

my $results = "~/results"; # results coming in.
for (glob "$results/*.tar.gz") {
    system "tar -tvf $_";
}

foreach (@tar) {
  `tar -tvf $results\/$_`;
}